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Preface 


This manual discusses the mechanics of using APL 
with the IBM 5110 Computer. It is intended to 
provide the users of this system with information 
necessary to operate the system using the APL 
language. 
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• IBM 5110 APL. User's Guide, SA21 -9302 

• IBM 5110 APL. Reference Manual, SA21-9303 

• IBM 5110 APL. Reference Card, GX21-9304 


First Edition (December 1977) 

Changes are continually made to the specifications herein; any such changes 
will be reported in subsequent revisions or technical newsletters. 

Requests for copies of IBM publications should be made to your IBM 
representative or the IBM branch office serving your locality. 

A form for reader's comments is at the back of this publication. If the form 
is gone, address your comments to IBM Corporation, Publications, Department 
245, Rochester, Minnesota 55901. 
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Chapter 1. Introducing the IBM 5110 


ABOUT THIS MANUAL 

This manual will show you how to operate the IBM 5110 using the APL 
language. If you are not familiar with the APL language, you should do 
the suggested keying operations or examples on your 5110 while reading 
the manual from cover to cover. If you are familiar with the APL 
language, you should read Chapters 1 and 2 to learn how to operate the 
5110; however, you may then want to skip to Chapter 7. Not all of the 
features or functions of the APL language are covered in this manual. 

For more information about the 5110 or the APL language, see the IBM 
5110 APL User's Guide, SA21-9302, or the IBM 5110 APL Reference 
Manual, SA21-9303. 

This manual was written with the assumption that the 5110 has been 
set up and checked out. If the 5110 has not been set up, use the setup 
procedure in the IBM 5110 Setup Procedure, SA21-9318, before 
continuing to read this manual. 


ABOUT THE APL LANGUAGE 

APL has many built-in functions that allow you to effectively solve your 
problems. However, if you need a special function to solve a problem, 
APL also allows you to define your own functions. The functions you 
define are similar to programs written in other computer languages. 

APL is a good language to experiment with; nothing you do from the 
keyboard can damage the 5110, and the more you experiment, the more 
you will learn about APL. 


ABOUT THE SYSTEM 

The IBM 5110 Model 1 (Figure 1) is a computer designed to help you 
solve problems. The IBM 5110 Model 2 differs from the Model 1 in 
that the Model 2 does not have a built-in tape unit. The display screen 
and indicator lights communicate information to you, and the 
keyboard and switches allow you to control the operations the system 
will perform. 

Before you begin to use the 5110, you should become familiar with the 
keys and control panel. The control panel switches will be discussed 
later. Following is a brief description of the keys (Figure 2); how you 
use the keys will be discussed later. 
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Alphameric Keys 

The alpha keys are similar to those on a standard typewriter, except that 
there are no lowercase characters. In standard APL character mode, the 
alpha characters are all uppercase, even though they are in the lowercase 
position on the keys. Thus, you do not use the shift key for 

alpha characters. 

If you want to enter an upper shift character, you must hold down the 
shift key and then press the key to enter the character, just as you 
would to type an uppercase character on an ordinary typewriter. 

You can also enter lowercase alphabetic characters from the keyboard. 
How you enter lowercase alphabetic characters is discussed later in this 
chapter. 


Numeric Keys 

Either the top row of alphameric keys or the special calculator arrange¬ 
ment of numeric keys can be used to enter numbers. 


Operating Keys 

The black key labeled EXECUTE, the dark gray keys with the legend 
names CMD, ATTN, and HOLD, and the dark gray keys with the arrows 
are all special operating keys. The keys with the arrows and the space¬ 
bar, which is used to enter blank characters, automatically repeat the 
operation they perform when held down. 


Backspace Key 

Forward Space Key 


Attention Key 
Scroll 



Up Key 

Scroll Down Key 


Hold Key 
1 



Execute Key 


2 







APL System Command Keywords 

The words that are above the top row of numeric keys are system command 
keywords, which you can enter by holding down the CMD key and then 
pressing the key below the desired keyword. For example, to enter 
)LOAD, hold down CMD and press the 1 key. The system commands 
and their uses are discussed later, in Chapter 9. 

Also, notice the special character combinations engraved on the front of 
the alphabetic keys. If you have a combined APL/BASIC machine, there 
is also a BASIC statement keyword engraved above the special character 
combination on the front of the key. You can enter the special charac¬ 
ter combination by holding down the CMD key and then pressing the 
appropriate key. You will see how these special character combinations 
are used as you become familiar with the APL language. 



BASIC Statement Keyword 
APL Special Character Combination 


Arithmetic Function Keys 

The four keys to the right of the calculator arrangement of numeric keys 
are the arithmetic function keys. These keys are used to perform division, 
multiplication, subtraction, and addition. There are also keys on the 
alphameric keyboard that perform these functions. Notice that the -s- and 
x symbols are used for division and multiplication. 




GETTING STARTED 


Make sure the switches on your IBM 5110 are set as follows: 


Switch Setting 

L32 64 R32 (5110 only) 64 

BASIC/APL (combined machines only) APL 

DISPLAY REGISTER/NORMAL NORMAL 


If your 5110 has the BASIC/APL switch, it can execute both BASIC and 
APL language statements. The language to be used is selected by the user 
before power up or during the restart sequence. 

Make sure your 5110 is plugged in and turn power on. If power is 
already on, press RESTART and wait about 20 seconds. During this 
time, the 5110 performs internal checks to make sure it is operating 
correctly. 

After 30 seconds, if the message CLEAR WS has not appeared in the 
lower left corner of the display screen, an error has been detected during 
the internal checks. In this case, press RESTART. The 5110 will per¬ 
form the internal checks again. If the CLEAR WS message does not 
appear after several tries, call your service representative. 
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ENTERING AND DISPLAYING DATA 


First, let's look at the display screen. Normally, information displayed 
by APL begins at the left edge of the display screen, and the input from 
the keyboard is indented when it is displayed. The small horizontal 
flashing line indicates the position on the line where the next input from 
the keyboard will be displayed. This flashing line is called the cursor. 
The cursor moves as each character is displayed. 

The display screen can contain up to 16 lines of data. Each line has 64 
positions across the display screen. The bottom two lines are used to 
display input, and the remaining 14 lines contain a history of the opera¬ 
tions you have performed. 


Line | -*-64 Character Positions 

Numbers 



There are 128 positions available for input from the keyboard; that is, 
there are 64 positions available on line 1 and 64 positions on line 0. When 
position 64 of line 1 is used as you enter data from the keyboard, the 
cursor moves to the left margin of line 0. The cursor is then at position 
65 of the possible 128 positions available for input. 
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Now let's enter some data into the 5110 using the numeric keyboard 
and the arithmetic function keys. Press the following keys: 


□ □□ 

Notice that the characters are displayed as each key is pressed. To 
process the data you just keyed, you must press the EXECUTE key. 
Press the EXECUTE key now. 

The display screen will look like this: 


CLEAR UIS 



V. 


Notice that the expression you entered, 2+3, appears indented on the 
display screen; the answer, 5, appears on the left margin of the next line; 
and the cursor appears on the next line. The information displayed 
moves up each time the EXECUTE key is pressed. 

Enter and execute the expression 125+75 by pressing the following keys: 


Q00GQ0 



The display screen will look like this: 


CLEAR WS 
’*■:! v 3 


2 0 0 
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The appearance of your display can be changed by the REVERSE 
DISPLAY and L32 64 R32 switches on the control panel. The 
REVERSE DISPLAY switch allows you to change from black characters 
on a white background to white characters on a black background and 
vice versa. Change the switch and select the type of display you feel 
most comfortable with. You may have to adjust the brightness control 
as you change from one to the other. 

Now, watch the display as you set the L32 64 R32 switch to the L32 
position. With the switch in this position, the leftmost 32 characters on 
each line are displayed with an extra space between each character. The 
rightmost 32 characters on each line will not be displayed. With the 
switch in the L32 position, your display should look like this: 


G L E A R W S 

i;r 

2 0 0 



V. 


In the R32 position, the rightmost 32 characters are displayed with a 
space between each character. Now, set the switch in the R32 position 
and notice that the display is blank because there were no characters in 
the rightmost 32 positions of the display screen. 


Return the switch to the 64 position, and notice that all characters are 
displayed without the space in between. For exercises in the remainder 
of this book, keep the switch in the 64 position. 


There are two keys above the numeric keys that move the display line 
up or down. The up arrow (scroll up key) moves the display up 

one line and the down arrow liSS (scroll down key) moves the display 


down one line. As the lines are moved up or down, the displayed 
information on any line that is moved off the display screen is lost. Also, 
the cursor returns to position 7 on line 1 when either scroll key is used. 
Either key continues to move the display lines if it is held down. Now 
use the down arrow to move the display down one line. 


The display will look like this: 


CLEAR WS 
2 + 3 


|200 



The value 200 is now on the input line and 
can be used as input. Notice that input can 
begin in any position on the line. 


Introducing the IBM 5110 9 




Now press the following keys: 



The display screen will look like this: 


CLEAR US 

2+3 

5 

125+75 
200 +50 

250 

V. . 


Now that you are familiar with the display screen, only the line or lines 
being discussed will be shown. 


CORRECTING KEYING ERRORS 

The IBM 5110 has a number of very useful features that allow you to 
correct errors made when data was entered. On a line-by-line basis, at 
any time, you can: 

• Replace a character 

• Delete a character 

• Insert a character 


Replacing a Character 


To replace a character, move the cursor with the backspace key 


or forward space 


key, until the cursor is positioned at the 


incorrect character. The cursor moves one character space in the 
direction of the arrow each time the appropriate key is pressed. These 
keys continue to move the cursor if they are held down. When the cursor 
is at the incorrect character, you replace the incorrect character by 
simply keying the correct character. 




For example, you want to do the problem 22+12. But you press the 
following keys: 


□ □□□□ 


The display screen looks like this: 


22 +1 :l. 


To correct the error, the cursor must be moved back one position (under 
the second 1) so that the character can be rekeyed. Now press the 
backspace 1 key one time. Note that the cursor is replaced by a 

mm 

flashing character. The flashing character serves the same function as the 
cursor; it indicates the position on the line where the next input from the 
keyboard will be displayed. Now to correct the error and execute the 
problem, press the following keys: 



Deleting a Character 


To delete a character, you also use the backspace key 



or forward 


space key 



to move the cursor. Once the cursor is in the position 


of the character to be deleted (the character is flashing), hold down the 
CMD key and press the backspace key once. The character is then deleted 
and any characters to the right are shifted one position to the left to 
close up the space left by the deletion. 
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For example, you want to do the problem 13+45. But you press the 
following keys: 




□ □□ 


The display screen looks like this: 


123 + 4 - 5 -. 


Press the backspace key and move the cursor (flashing character) back 
to the 2. Look at the labels that appear above the backspace and 
forward space keys: DELETE and INSERT. To delete the 2, hold down the 
CMD key while you press MSI once. 


The display screen looks like this: 


13 + 1+5 

\ 


This character is flashing. 


Now press the EXECUTE key to execute the problem. 


Inserting a Character 

To insert a character, position the cursor using the backspace key 



or forward space 



key; then hold down the CMD key and press 


the forward space 



key once. This operation moves the flashing 


character (and all other characters to the right of it) one position to the 
right, creating the space you need to insert one character. The cursor is 
not moved. Now, to insert the character, simply press the desired key. 




For example, you want to do the problem 123x6. But you press the 
following keys: 


□ □□0 

The display screen looks like this: 


13x6- 


To correct the error, press the backspace key and move the cursor 
(flashing character) back to the 3. Look at the labels that appear above 
the backspace and forward space keys: DELETE and INSERT. To perform 
the insert function, with the cursor positioned at the 3, hold down the 
CMD key while you press £M| once. 


The display screen looks like this: 


:l. ...3x6 


Now to correct the keying error and execute the problem, press the 
following keys: 
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There is one more way to correct a keying error. If you make several 
errors part way through the line, you can backspace the cursor to the 
character following the last correct character and then press the ATTN 
(attention) key. Everything from the cursor position to the end of the 
input line will be cleared from the display. 

Since the data from the input line is not processed until the EXECUTE 
key is pressed, you can visually verify any input before it is processed. 
However, if you do press the EXECUTE key before you notice a 
mistake, you can simply enter the input again or you can use the down 
arrow (scroll down key) to move the input back down to the 

input line to correct it. Either way, you must press the EXECUTE key 
again. 

For example, you want to do the problem 135+280, but you enter and 
execute 134+280. The display screen looks like this: 


i 4 


1.3 4 -+ 280 


To correct the input, press the down arrow 


three times to clear 


the result from the screen. The display screen now looks like this: 


134+280 


Then press the up arrow 


once to move the original input back 


up to the first input line so that it can be corrected. 




ENTERING LOWERCASE ALPHABETIC CHARACTERS 


Although only the standard APL alphabetic characters are shown on 
the 5110 keyboard, you can enter lowercase alphabetic characters by 
changing the 5110 to lowercase character mode. One way to change 
the 5110 to lowercase character mode is to press the fHfRl key (the 


characters HOLD are displayed in the lower left corner) and then hold 
down the shift key and press the scroll down key. The 


5110 is now in lowercase character mode. For example, press the 
Q key. The display screen looks like this: 


Now, hold down the shift 
display screen looks like this: 


key and press the 


key. The 


<:1 A_ 

Finally, hold down the command 
The display screen looks like this: 




key and press the 


key. 


a Act 


In this example, you are not going to execute the data just entered from 
the keyboard because you will get an error. Instead, press the scroll up 
key once to remove the data from the input line. Now, to 


return the 5110 to the standard APL character mode, press the 


key and then hold down the shift 


key and press the scroll up 



key. The 5110 is now in standard APL character mode. 


Note: See Console Control in the IBM 5110 APL User's Guide, 

SA21-9302, for more information on how to enter lowercase characters. 
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From this point on, we will discuss the APL language and use examples 
in the following format to illustrate what we are discussing. You enter 
the expressions that are indented. The results displayed on your 5110 
should be the same as the results shown in this manual. 


EXAMPLES: 



Expressions To Be Entered 
Results 


Remember, the data you key is not processed until 
the EXECUTE key is pressed. 
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TYPES OF FUNCTIONS IN APL 

There are two types of functions in APL: user-defined functions 
(programs) and those that are built into the APL language. The APL 
built-in functions are denoted by special symbols. User-defined 
functions are discussed later, in Chapter 7. 

The built-in functions operate on data supplied, called arguments. 
For example: 


2 + 3 

I ! t 

Right Argument 
Built-in Function (addition) 
Left Argument 


ADDITION, SUBTRACTION, MULTIPLICATION, AND DIVISION 



Alphameric Keys 


□ □ 


Machines with APL Only 
or 

Combined Machines 



00 


Arithmetic Function Keys 


Four commonly used built-in functions (+ - x +) perform the normal 
arithmetic operations when they are used. These symbols are located 
on the top row of the alphameric keys and also to the right of the 
numeric keys. 
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EXAMPLES: 



Problems: Using Addition, Subtraction, Multiplication, and Division 

1. Find the total number of cars that a dealer sold during one week if 
his daily sales were 3, 5, 2, 6, 7, 3 and 4. 

2. Find the net number of cars removed from the same dealer's lot if 
20 people had trade-ins. 

3. Find the dealer's average profit per car if he made a total profit of 
$2700 for the sales in problem 1. 

4. Find the dealer's total earnings if he made $20 on each car sold. 


18 



Possible Solutions 


Problem 1: 


3 + o f 7 + 3 4- 
3 0 


Problem 2: 


30 -20 

10 


Problem 3: 


2700*30 

90 


Problem 4: 


2 0 x 3 0 

6 0 0 


ANOTHER ARITHMETIC FUNCTION-RAISING A NUMBER 
TO A POWER Q“j 

Another arithmetic function that you are probably familiar with is 
raising a number to a power. In APL, you use the * function to raise 
the left argument to the power specified by the right argument. 

EXAMPLES: 


3 raised to the second power. 
2 raised to the third power. 
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Finding the Root of a Number 


You can use the power function * to find the root of a number. To do 
this, you simply raise the number to the power Hn, where n is the root 
you want to find. 


EXAMPLES: 


i+w ( 1 - : :-2 ) -*-The square root of 4. 

M * . 5 --Another way to enter the instruction to find a 

square root of a number (.5 is the same as 1-^2). 

8* ( 1. v-3 ) 

-The cube root of 8. 


STORING DATA IN THE 5110 FOR LATER USE 



You can store data, either direct input that you enter from the keyboard 
or the result of a calculation. These stored items are called variables. 

Each variable has a name associated with it. Whenever you use the name of 
variable, APL supplies the value associated with that name. A variable 
name can be up to 77 characters long (with no blanks); the first 
character must be alphabetic; the remaining characters can be any 
combination of alphabetic and numeric characters. It is good practice 
to use names that represent the data you are storing. For example, if 
you want to store a value that is the area of a rectangle you might use 
the name AREA; or if you want to store some sales data, you might use 
the name SALES. 

You create a variable by assigning the data to a name. To assign a value 
to a name, you use the assignment arrow The value to the right of 
the is assigned to the name to the left of the . 



EXAMPLES: 


99.5 

995 


PRICE 
SALE S 
PRICE 

SALES 



86.75 


96 . 75 


PR ICE<-86.75 
PRICE 


PRICE<- PElCE+10 
PRICE 


After you press the EXECUTE key, you 
have created a variable named PRICE 
with a value of 99.50. 

The result of a calculation can also be 
assigned to a variable. 

If you want to know the current value of 
a variable, you simply enter the name of 
the variable. 

■ You can change the value of a variable 
the same way you assigned the original 
value. 

You can also use the variable and change 
its value in the same instruction. 


COS Tv-SALES 
VALUE ERROR -- 


COS Tv-SALES 


You cannot use a name as a variable if 
it does not have a value assigned to it. 

The error message indicates why the 
instruction failed. 


The caret (a) indicates where the 
instruction failed. 


Note: Do not be concerned at this time 
about the error message that is displayed; 
all of the 5110 APL error messages and 
suggested user's responses are described 
in the IBM 5110 APL Reference Manual, 
SA21-9303. 


PERFORMING SEVERAL FUNCTIONS IN THE SAME EXPRESSION 

In the preceding examples, only one arithmetic function was used in 
each example. However, you are not restricted to writing expressions 
with only one function. Any number of functions can occur in the 
same instruction. As soon as you use more than one function, however, 
you must be concerned about the order in which they are used. In APL, 
the rightmost function in any expression is executed first, then the next 
rightmost, and so on. 


Introducing the APL Language 21 




EXAMPLES: 


Order of execution is right to left. 

3 x 2 + 4 - 4 is added to 2, and that result is multiplied by 3. 

18 

M- t-3 x 2 -- 3 is multiplied by 2, and that result is added to 4. 

10 


Remember that an APL function uses as its right 
argument the result of the expression to its right. 


SPECIFYING THE ORDER OF EXECUTION-USING PARENTHESES | ( j 


In APL, parentheses are used the same way as they are in conventional 
arithmetic: the expressions inside the parentheses are executed before 
the expressions immediately outside them. 


EXAMPLES: 


10 

( 3 x 2 > + 4- — 

-The expression 3x2 is evaluated first and the 

result is added to 4. 

14- 

(4+3 ) x2 

The expression 4+3 is evaluated first and the 



result is multiplied by 2. 


Remember, the rule of the order of execution 
is from right to left with the expressions in 
parentheses resolved first and from right to 
left as they are encountered. 


USING STRINGS OF NUMBERS AND TABLES 

A powerful feature of APL is the way it handles strings and tables of data 
So far, you have used APL with only single numbers (called scalars): but 
APL also works with strings of numbers (vectors) and tables (matrices). 
The functions you have performed using single numbers are simply 
extended to each number in a string or a table. For example, if you have 
a string of numbers assigned to a variable named SALES, you can add 2 
to each number in the string by simply entering 2+SALES. 






Using APL with Strings of Numbers (Vectors) 

A string of numbers is called a vector. When you enter a string of numbers, 
there must be at least one blank between each number; each number is 
called an element of the vector. 


EXAMPLES: 


1. 44 2 9 35 -- 

1 4M- 2 9 35 

STRING+J.44 1.6 39 2 

S T RIN G " -- 

144 1.6 39 2 


SALE Sir 1.25 220 31.6 90 
S A L E S x 1 0 -- 


12 5 0 2 2 0 0 31.6 0 9 0 0 


You have entered a five-element 
vector (a string of five numbers). 

A vector can be assigned to a 
variable name. 

Each element (number) in the 
vector can be operated on by 
a single number. 


62 . 


( 


58 0 


6 A L E S “* - 

220 31.6 90 

PRICE*- . 50 1. . 0 0 . 75 1. . 1. 0 
TOTAL*- SALES x p RICE 

TOTAL i _ 

220 237 99 



Note that the value of SALES 
has not changed. 


Each element in a vector can be 
operated on by the 
corresponding element in 
another vector with the same 
number of elements. 

There must be at least one 
blank between the elements 
of the vector, or the result 
will be different. 


1. 2 3 + 4 5 
LENGTH ERROR 

1. 2 3 v 4 


You cannot use two vectors 
that do not have the same 
number of elements unless 
one of the arguments is a 
single number (single element) 
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Problems: Using Strings of Numbers 

1. Find the squares of the numbers from 1 to 5. 

2. Find the squares, cubes, and fourth powers of the numbers 2 and 3. 

3. A small mutual fund broker specializes in five funds. He wants to 
know how much of each fund he had sold at the close of the day. 

By 4:00 PM, he had sold $1500, $3200, $1200, $2300, and $2400, 
respectively, of the five funds. In the last hour of the day, he sold 
$100, $500, $300, $200 and $0 of the respective funds. Write a 
single APL statement to determine his closing sales figures for each 
fund. 

4. The five funds in problem 3 sold for $7.30, $11.58, $3.45, $2.17 
and $5.56 per share. How many shares of each fund were sold? 

5. The broker receives the following percentages of commission on the 
five funds: 3.25, 2.5, 3.0, 3.75 and 3.5. How much did he earn 
from each fund today? What are his total earnings for the day? 


Possible Solutions 
Problem 1: 


1 2 3 4 3*2 
1. 4- ? 16 25 


Problem 2: 


4- 9 
8 27 
16 81 . 


2 3*2 
2 3*3 
2 3 * 11- 


or 


2*2 3 4 

4- 8 "1.6 

3 * 2 3 4- 
9 27 81. 
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Problem 3: 


150 0 320 0 120 0 23 0 0 24-00 + 100 50 0 30 0 20 0 0 
1600 3700 1500 2500 2MOO 


Problem 4: 


16 0 0 
2 1 9 . J. 8 319 


37 0 0 150 0 250 0 24-00 + 7.30 11 
5 2 4 3 4-. 7 8 1152.1 4 31.65 


58 3 . 45 


J , 06 


Problem 5: 


§:: ni 


1600 3700 1500 
5 45 93.75 84 
52,00+92.50+45 


250 0 
0 0 + 9 


240 Ox,0325 
.75+84.00 


0 30 0 .03715 


Using APL with Tables of Numbers (Matrices) 


A table of numbers is sometimes called a matrix. The numbers in the 
matrix are arranged in rows and columns; each number is called an 
element of the matrix. 


j—Column 


1 

2 

3 

4 

5 


6 

7 

8 

9 

10 


11 

12 

13 

14 

15 

--Row 


An individual element in row 3, 
column 4 of the matrix. 


You can use the reshape p function to create matrices. The left argu¬ 
ment specifies the number of rows and columns, and the right argument 
specifies the data or variable name for the data to be placed in the matrix. 
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EXAMPLES: 


4 


4 


The first number in the left argument 
specifies the number of rows; the second 
number specifies the number of columns. 

The right argument specifies the values to 
be placed element by element into the 
rows of the matrix. 

There must be a blank between the 
numbers specifying rows and columns. 

TABLE*2 3pl 2 3 4 
TABLE 

p 3 - -—- - If there are not enough elements in the 

| 2 right argument to fill the matrix, the 

elements are repeated. 



VECTOR*! 2 3 4- 5 6 7 8 9 10 1.1 1.2 

MAT R1 X*-3 3pVEC I 0 R If there are more elements in the right 

MA I R .1. X t ..—-argument than are required to fill the 

1 2 3 matrix, only the first (leftmost) elements 

4- 5 6 are used. 


11 
14 


6 

9 

12 


-■? 

i 
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l 

F0UR*-4- p VECTOR 

FOUR t____ 

3 i+ 

MATRIX*!0 

12 13 1 -- 

15 16 
18 19 

NUMBERS*! 2 3 4- 5 6 7 
E X. A M P L E S * 3 3 p N U M B E R S * 
EXAMPLES 
7 8 

10 11 

13 14 - 

R E S U L T S *• E X A M P L E S+M A T RIX 


The reshape p function can also be used 
to create a vector. 

The number of elements in the vector. 

Each element in the matrix can be operated 
on by a single number (remember, the 
value of MATRIX is not changed). 

8 9 

Remember that APL executes an 
expression from right to left—the 
result of NUMBERS+5 is used as 
the right argument for the reshape 
p function. 


RESULTS 
9 11 
15 17 


Each element in a matrix can be operated 
on by the corresponding element in another 
matrix of the same shape. 
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EXAMPLES—continued 


LESS*-2 2 p NUMBERS 


1 2 
3 4 

MATRIXXNUMBERS 
RANK ERROR 

MATRIXxNUMBERS 

A 

MATRIXxLESS-- 

LENGTH ERROR 

MATRIXxLESS 


A matrix and a vector 
or 

two matrices that do not have 
the same shape (number of rows 
and columns) cannot be used 
unless one of the arguments is 
a single number. 


REFERRING ONLY TO CERTAIN NUMBERS IN A STRING OR TABLE 
OF NUMBERS (INDEXING) 

Indexing is a way to refer to only certain elements in a string or table 
by specifying the position of the element you want. The numbers you 
use to specify the positions of the elements are called index numbers. 
These index numbers are enclosed in brackets [ ] following the vector 
or matrix to which they apply. 



EXAMPLES: 


7*1 


TEMP<-68 74 78 65 80 85 72 
TEMPi:2:i -- 

TEMPi:3 :l. 2:i 

68 74 t- 


TEMPi:2:i +TEMPi:3 :l. 2.:i 
142 148 *- 


You can refer to a single 
element. 

You can refer to several 
elements. Notice that the 
elements are displayed in 
the order in which you 
indexed them. 

You can index and use 
other functions in the 
same expression. 


6 8 i 4 

70 7 0 


temp r: 7 :k-88 — 

TEMP 

78 65 80 85 
TEMPi:3 63<-70 
TEMPi:3 6:i 


You can change a single 
element of a vector. 



You can also change several 
elements. 
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EXAMPLES-continued 


74- 


TEMP i: 
TEMP 
70 65 



Notice that the new values 
are assigned in the same order 
as the index numbers. 


For a matrix, you need 
an index number for the 
rows and an index number 
for the columns—these 
numbers are separated 
by a semicolon. 


4 5 
7 8 


1 2 


!;;i o 

8 9 


TIMES*-3 3^NUMBERS -•-Remember, we have previously 

TIMES assigned a value to NUMBERS. 

3 



TIME SC 3; 2 33**- 
TiMEsr: i; :i. 2:1 
TIMESi:2 3; 2 33 


— you can refer to several 
elements. In this case, you 
have referred to the second 
and third elements in the 
third row. 

— Notice that when you refer 
to more than one row and 
more than one column, your 
result is a matrix. 



EXAMPLES—continued 


TIMESESn 

• l- 5 6 

times i:: ;3::i 
3 6 9-*._ t 


1 3 
4 6 
9 



TIMESEjl 3! 


If you do not specify a 
column, you get the whole 
row. 

If you do not specify a row, 
you get the whole column. 

These values (the third 
column) are displayed 
horizontally, because they 
are a string of numbers 
(vector). 


Note: Even when you select 
entire rows or columns, the 
semicolon is still required to 
make it clear whether the 
index number is for the rows 
or columns. 
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4 0 


TIMESES;13xTIMESE3;3! 

TIMESES ; 2 :i <- (T 
TIMES 


You can index and use 
other functions in the 
same expression. 

You can change the value of 
elements in a matrix. 


TIME SC I:l. 3 <-2 + 3 
TIMES!:: 1 13 


YOU ARE NOT LIMITED TO USING ONLY NUMBERS QJ 


Although the examples so far have used only numeric data, APL also 
works with character data. Character data, for example, can be used 
for headings on a table or to create a list of names. When you enter 
character data, you must enclose the data in single quote characters ('). 
These single quote characters indicate that the data is character data and 
is not a variable name, a number, or a function. When character data is 
displayed, the single quote marks do not appear. 


Character data, like numeric data, can be a single character (scalar), a 
string of characters (vector), or a table of characters (matrix). Unlike 
numeric data, when you have a character vector or matrix, each character 
is a separate element and is not separated from the other elements by a 
blank. In fact, a blank in the character data is also a character (blank 
character). 
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EXAMPLES: 


' A ' * .. 

A 

' ABC __ 

-Single character 

(scalar). 

ABC 

— --- String of three 

■ 3 

characters (three- 

2+3 

element vector). 

NUMBER*- 4-56 

1 123 ' i-U UMBER 

D 0 M AIN E R R 0 R -- 

'123‘+NUMBER 

This expression does 
not yield a result of 
5, because the values 
are characters, not 
numbers. 

-You cannot add 

character data and 

A 

numeric data. 


‘DON''T DO THAT' 

DON'T DO THAT 

TI IA N l< S <- ‘ Y 0 U A R I::! W E L C 0 M E 
THANKS 

YOU ARE WELCOME 



To place a quote within 
the character string, 
you must use a pair 
of quotes. 

Character data can be 
assigned to a variable 
name. 


SAM 

JOHN 

JACK 

TOM 

JOHN 


JOHN 


NAMES*- ‘ SAM JOHN JACK TOM 

MAT R IXN+4- 4- p NAMES -- 

MATRIXN 


Blank characters. 

Create a character 
matrix, each row 
represents a name. 


NAMESC5 6 
MATRIXNC2 


7 8 


y 

i 


Indexing works with 
character data also. 


So far, you have used APL with some common arithmetic functions. 
You have also seen how APL works with scalars (single data items), 
vectors (strings of data), and matrices (tables of data). However, you 
are not limited to just the functions we have discussed so far. In the 
following chapters, you will be introduced to more things you can do 
with APL. 




Chapter 3. APL Functions That Require One Argument 


In this chapter you will use some APL functions to do the following: 

• Determine the whole numbers nearest a fraction. 

• Sort a vector into ascending or descending order. 

• Generate a random number. 

• Find the shape of an existing variable. 

There are additional APL functions that require one argument; however, 
these functions will be discussed later, in Chapter 6. 


HOW MANY ARGUMENTS ARE REQUIRED BY AN APL BUILT-IN 
FUNCTION? 

In this chapter, you will use APL functions with one argument. In the 
next chapter, you will use some of the same APL function symbols with 
two arguments. As you will see, these symbols perform different APL 
functions when they are used with one and with two arguments. When 
you use an APL function with one argument, the argument must be to the 
right of the function symbol. 


APL FUNCTION SYMBOLS THAT ARE A COMBINATION OF TWO 
CHARACTERS 

Some of the APL function symbols you will use are a combination of 
two characters. You remember that when correcting keying errors, if 
you positioned the cursor at a certain character and pressed another key, 
a new character would replace the original character. However, certain 
APL symbols require two characters, one struck over the other. For 
these symbols, key the first character, backspace, and key the second 
character. It does not matter in which order the characters are keyed. 

The symbols that are a combination of two characters are called overstruck 
characters. Appendix A shows the overstruck characters and the keys 
required to enter them. 

Note: If you key an overstruck character and then want to change it, you 
can position the cursor at the character and key another character. The 
new character will replace the overstruck character. 
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DETERMINING THE WHOLE NUMBERS NEAREST A FRACTION 




When you want to disregard the fractional part of a number and just 
consider the nearest whole number, you can use the floor L and ceiling f 
functions. The floor function will round the number down to the next 
smaller whole number and the ceiling function will round the number up 
to the next larger whole number. 


EXAMPLES: 


y*i x 7 i:r '•> i ”. 
b a*;. 7 



).'j X . *’j v 

LB 



If the number is already a whole number, the 
result is the same as the argument. 


The result for the floor and ceiling functions is 
determined according to the number's position 
on the number line: 


(smaller) 


(larger) 


4 3 "2 1 0 1 2 3 4 


Rounding to the Nearest Whole Number 

It is a common practice to round numbers to the nearest whole number. 
You can do this by adding .5 to the number and then using the floor 
function. 


EXAMPLES: 


4 


X«-4.4 + 


Rounds 4.4 to the nearest whole number. 


X 4.6 t- 
LX 


Rounds 4.6 to the nearest whole number. 


|_ X«-4.4 + 
X * |_4.6+ 



These examples could also be entered this way. 








SORTING A VECTOR IN ASCENDING OR DESCENDING SEQUENCE 



The grade up 4 and the grade down f functions can be used to sort a 
numeric vector into ascending or descending sequence, because they 
give you the indices of the argument in ascending or descending order. 


EXAMPLES: 


B0 M-5 62 37 29 74 58 15 96 



The largest value is the ninth 
element. 

The smallest value is the 
eighth element. 


15 


b*ai:6a:i 

B 


74 80 96 


Indexing A this way sorts the 
elements of A in ascending 
order. 


Remember, when indexing 
elements in a vector, the 
index numbers or the 
index expression must be 
enclosed in [ ]. 


TA 

9 1 6 3 7 2 4 5 8 

L*" A!.. t A ..I --The elements of A are sorted 

L in descending order. 

96 80 74 62 58 45 37 29 15 
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GENERATING A RANDOM NUMBER 


To generate a random number, you can use the roll function ?, which 
generates a random number between 1 and the value of the argument. 


EXAMPLES: 


X*?6 


Generates a number between 1 and 6 . 


X *• 
X 

1 3 :l. 3 


6 6 6 


The result can be any number between 1 and 6 . 


/ 

o 



When this function is used with a vector, a 
random number is generated for each element. 


GENERATING CONSECUTIVE NUMBERS rTJ 

There are times when you will want to generate a vector of consecutive 
numbers from one value to another value. You can do this by entering 
an instruction like this: 


VECTOR*-:l. 2 3 4- 5 6 7 8 
VECTOR 
3 '+ 3 6 7 8 


However, you can also use the index generator function i, which generates 
consecutive numbers from 1 to the value specified by the argument. 


EXAMPLES: 


2 U. 


8 

8 


x 8 _Eight consecutive numbers 

'+ 3 6 7 8 ■*"" 

VECTOR* 5 * \ 5 **- Five added to each consecutive number 

VECTOR 
? 10 


2 k- i 6 -*— --— First 6 powers of 2 

16 32 6'i 
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Generating an Empty Vector 


An empty vector is just that—a vector with nothing in it (no elements). 
Why have a vector with nothing in it? As you will see later, when joining 
two items together or branching in a user-defined function, there are 
times when you will want to generate an empty vector. One way to 
generate an empty vector is to use \ 0. 


EXAMPLES: 


NAME 

VALUE EPROR -*-An error occurs if you use a variable name that does 

NAME not have a value assigned. 


NAME*- i 0“*-Generate an empty vector. 

NAME 

The result is a blank display line (no value). 


FINDING THE SHAPE OF AN EXISTING VARIABLE Q“j 


As you learned in Chapter 2, the left argument of the reshape function 
determined the number of elements in a vector or the number of rows 
and columns in a matrix. Thus, the number of elements in a vector or 
a matrix is referred to as the shape of the vector or matrix. For example, 
the shape of matrix M, which has two rows and three columns, is: 2 3. 

To find the shape of an existing variable, you can use the shape function 

p • 

EXAMPLES: 


4- 


0 


S A l„. A R *• 4- 
VECTOR*-2 
MAT RIX<-2 
PSCALAR 


--— Blank display line—the shape of a scalar 

P VE C f U R is an empty vector. 

P MA I RX Number of elements in the vector. 


4 6 8 

5 P 1 6 ^-Reshape function (has two arguments). 


3 



EMPTY*-ill 
EMPTY 


Number of rows and columns in the matrix. 
Generates an empty vector. 

Blank display line. 


P E M PTY 


Number of elements in an empty vector. 

APL Functions That Require One Argument 
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Chapter 4. APL Functions That Require Two Arguments 


In this chapter you will use some APL functions that require two 
arguments. You can use these functions to do the following: 

• Compare the arguments to determine whether one is equal to, greater 
than, or less than the other argument. 

• Process logical data—true (I's) and false (0's) data. 

• Find the larger of two numbers. 

• Find the smaller of two numbers. 

• Find the index of a value in a vector. 

• Generate a random sequence of numbers. 

• Compress (select certain elements from) a vector or matrix. 

• Expand a vector or matrix by inserting zeros; or blanks. 

• Join two items together. 

• Find the logarithm of a number. 

There are additional APL functions that require two arguments; however, 
these functions will be discussed later, in Chapter 6. 
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RELATIONAL FUNCTIONS 


When solving problems with APL, you might want to test the relationship 
between two values. For example, you might want to test a counter to 
see if it has reached a certain value; or you might want to do something 
different in the solution to your problem, depending on whether a certain 
condition is true or false. The following APL functions are used to test 
the relationship between two values: 


Function 

Symbol 

Key 

Greater than 

> 

> 

: 7 -' 

w—- 

Less than 

< 

--> 

< 

Greater than or equal to 

> 

> 

Less than or equal to 

< 

a 

Equal to 

= 

UJ 

Not equal to 

* 

CD 


When these functions are used, the relationship between the two values 
is evaluated, and a 1 results if the relationship is true, and a 0 if false. 
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EXAMPLES: 


A«:LO 
I ) <-20 
A=B 

0 

1 0 


1 


AB 
A?-B 


A :i: B 

0 

A<- ‘ ABC 1 
B<- ‘ DEI- ' 
A«B 

0 0 0 

A^B 



1 :L l 


The = and =£ functions also work with character 
data. Remember, each element is compared with 
the corresponding element in the other argument. 



Why Two Numbers Identical in Appearance Are Not Always Equal 

APL stores all numeric values with an internal precision of 16 decimal 
digits; however, decimal values with more than five significant digits are 
normally rounded off to five digits before they are displayed. Thus, 
occasionally, different numbers will look alike when displayed. 


EXAMPLES: 


A<:l. v-3 

!K .33333 

A 

0,33333 -- Only five of the 15 digits are displayed. 

B 

0.33333 

A :::: B --The values are not equal. 

0 

I IP P -DPP is a system variable that determines how 

many significant digits will be displayed. This 
variable is automatically set to 5 when the 
power is turned on or RESTART is pressed. 
(The system variables are discussed in 
Chapter 9.) 


0 

0 


PP<-15 


A 

3333 33333333333 > 
B 

33333 -- 


Set the DPP system variable so that 15 
significant digits will be displayed. 


Notice the difference between the two values. 


DPP* 



Set the []PP system variable back to 5. 


Remember, the value displayed may not be the exact value that the 5110 
has stored for the variable. 


An Example Using a Relational Function 

Suppose the correct answer to a problem has been stored as a variable 
called RIGHT, and the answer supplied by a student has been stored as 
a variable called ANSWER. To keep track of the student's score, you 
want to add 1 to his score if his answer is the same as the right answer; 
otherwise, you want to leave his score unchanged. 
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If the student got the problem right, it is true that ANSWER=RIGHT. 
To add 1 to his score only if his answer is equal to the right answer, you 
could enter this instruction: 

SCORE«-SCORE+ANSWER=RIGHT 

Then the amount added to SCORE is 1 when the two values are equal 
and 0 when they are not equal. 

Suppose that instead of adding 1 when the student is right, you want to 
give some problems more weight than others. The weight of the current 
problem is stored under the variable WEIGHT. If the student gets the 
problem right, you want to add WEIGHT to his score; otherwise, you 
want to leave his score unchanged. You could enter this instruction: 

SCORE*-SCORE+WEIGHTxANSWER=RIGHT 

If the student's answer is equal to the right answer, then ANSWER= 
RIGHT has the value 1, so the amount added is WEIGHT x 1. But if 
the answers are not equal, then the amount added is WEIGHT x 0, 
which is 0. 


LOGICAL FUNCTIONS 

The logical functions take only ones and zeros as arguments and are used 
to check for certain conditions. (They usually check the results of 
relational functions.) The fundamental logical functions are: 


Function Symbol Key 


And 


A 


Or 


v 


m 



In our discussion of the logical functions, we will use tables like the 
following one to show the possible results of the logical functions: 


Logical Function 
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To use this table, simply find the value of the right argument on top of 
the table and the value of the left argument on the left side of the table. 
Then, follow the column represented by the right argument down and the 
row represented by the left argument across. Where they intersect is the 
result of the logical function when those values are supplied as arguments. 
For example, find out what the result of 1 a 0 is as follows: 


Follow the value 
of the left 
argument across. 



Follow the value of the right 
argument down. 


They intersect here; thus, 
the result is 0. 



A 

0 

1 

0 

0 

0 

1 

0 

1 


1 


Right argument. 


The result is 1 only if both arguments are 1. 
Left argument. 


The And function is used to check for two conditions being true. 

For example, suppose you want to know when the items that cost more 
than $100.00 have a quantity less than 10. You could use the following 
instruction: 

< COST > .1.0 0 ) a < QUANT I "f Y < i 0 ) 

t-The result is 1 when the 

quantity is less than 10. 

--The result is 1 when the cost 

is greater than 100. 


Notice how the parentheses in this instruction specify the order of 
execution. 
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EXAMPLES: 


QUANTITY'S 
COST 20 

< c 0 S 7 > 1 0 0 ) A ( Q u A N TIT Y < 1.0 > 

1 -<--Both conditions are true. 

quant :i:ty<~25 

( COST > :l. 0 0 ) a (QIJANTITY < 10 ) 

0 --At least one condition is 

not true. 



V 

0 

1 

0 

0 

1 

1 

1 

1 


Right argument. 

-The result is 1 if either argument (or both) is 1. 

Left argument. 


The Or function is used to check for at least one of two conditions being 
true. 

For example, suppose you want to know when either the inventory for a 
certain item is less than 10 or the orders for that item exceed the inventory. 
You could use the following instruction: 


(:i: n v e n i o r y < i o) v (o r n e r s > i n v e n t o r y > 

1-The result is 1 when the orders 

are greater than the inventory. 

-The result is 1 when the inventory 

is less than 10. 




EXAMPLES: 


INVENTORY*-15 
ORDERS*-5 

< INVENTORY-: .1.0 ) v (ORDERS-- INVENTORY ) 

0 ^___ 

ORDERS*- 2 5 

< INVENTORY-: :l. 0 ) v ( ORDERS-- INVENTORY ) 

:U_ 


Both conditions 
are false. 


At least one of 
the conditions 
is true. 


Problems: Using Relational and Logical Functions 

1. It is vital to build error checking into all space systems to prevent 
catastrophe. For example, two indicators checking one condition 
are commonplace. If either or both of the indicators show danger, 
action must be taken. 

Assume that the A indicator is over its limit at 1.3725 amperes and 
the B indicator is over its limit at 1.5365 amperes. Enter an 
expression that will result in a 1 when one or both indicators are 
outside their limits; the indicators read 1.3732 and 1.5362, 
respectively. 

2. A survey was conducted by the PTA in which the teacher and the 
parent of the child each evaluated ten of the child's characteristics. 

One child's teacher replied 1, 0, 1, 1,0, 1,0, 0, 1,0 to the questions 
dealing with his characteristics. His parent answered 1,0, 0, 1,0, 1, 
1 , 0 , 0 , 0 . 

Show which questions the teacher and parent both replied to with 
a 1. 


Possible Solutions 
Problem 1: 

< 1 . 5365::; 1 .5362 ) v ;|. . 3725 < 1 . 3‘ 

1 


Problem 2: 

( x 10) x 1 0 1 1 0 1 0 0 1 0 a 1 0 0 1 0 1 1 0 0 0 
1 0 0 4 0 6 0 0 0 0 
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FINDING THE LARGER OF TWO NUMBERS 



The result of the maximum f function is the larger of the two arguments. 


EXAMPLES: 


A *-5 
B 6 
A1 B 


To see how you could use the maximum function, suppose you work for 
a department store. Each month the store calculates the amount charged 
and the amount paid by each customer. Your job is to find the difference 
between the total accumulated charges and the total accumulated payments 
for each customer. This difference is stored in a variable named BALDUE. 
The store also charges a service charge of 1.5% of the unpaid balance each 
month. You could find this charge with the following instruction: 


CHARGE<-BALDUEx , 015 


However, some of the customers have overpaid their bills. For them, 
BALDUE is a negative number and shows as a credit on their monthly 
statements. If you calculate the service charge by the instruction just 
shown, you will be paying them interest at a rate of 1.5%. Instead, the 
store prefers to calculate the service charge as 1.5% of the balance due 
or of 0, whichever is greater. To do this, you could use the following 
instruction: 


CHARGE*-. 015xOf BALDUE 
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FINDING THE SMALLER OF TWO NUMBERS CT) 


The result of the minimum |_ function is the smaller of the two arguments. 


EXAMPLES: 


A«-5 
B 6 
A|.B 

< BxB) |..Ax A 

O :l. 4- 7 9 
D<-3 2 8 7 


Problems: Using the Maximum and Minimum Functions 

1. Find the largest dollar expenditure for the following gasoline 
purchases: 

a. 16.8 gal at 57.9 cents per gal 

b. 13.5 gal at 60.9 cents per gal 

c. 15.6 gal at 62.9 cents per gal 

2. For the following purchases, find the smallest quantity of nuts 
received: 

a. 71 cents for walnuts at 33 cents per lb 

b. 53 cents for cashews at 27 cents per lb 

c. 64 cents for pecans at 29 cents per lb 


Suggested Solutions 
Problem 1: 


<16.8 x.579)f(1. 

9.8.1.2 M- 


5.x . 6 0 9 ) L 1. 5.6 x . 629 


Problem 2: 


< 71 3 3 ) L < 5 3 2 7) L 6 4 2 9 


9 6 3 
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FINDING THE INDEX OF A VALUE IN A VECTOR 



When you want to find out if a value is an element in a vector, and if it 
is, which element it is, you use the index of function ( i ). The index of 
function gives you the position (index) of the first occurrence in the 
left argument of the values in the right argument. If a value in the right 
argument is not in the left argument, the result is 1 plus the length of the 
left argument. 


EXAMPLES: 


Nf-8 

23 33 23 8 16 29tN 

i.,. 

A ‘ ABCDEFG ' 

A\‘CAFE' 

3 1 6 5 

B 2 4 



left argument; the result is 1 
plus the length of the left 
argument. 


GENERATING A RANDOM SEQUENCE OF NUMBERS pPj 


In Chapter 3, you used the roll function (? with one argument) to generate 
one random number. But by using the deal function (? with two arguments) 
you can generate a random sequence of numbers without generating the 
same number twice. That is, the deal function generates the number of 
random numbers specified by the left argument from 1 through the value 
specified by the right argument. The random numbers are selected so that 
no two numbers are the same. Therefore, the left argument cannot be 
greater than the right argument. If you specify the left argument equal 
to the right argument, you get all the numbers from 1 through the number 
specified by the right argument, in random order. 



EXAMPLES: 



4 


2?5 
10?10 

8 .1.0 6 9 2 4 .1. 7 


May be any two different numbers 
between 1 and 5. 


These numbers can be in any order, as 
you will see if you enter this 
instruction several times. 


SELECTING CERTAIN ELEMENTS (COMPRESSING) 
FROM A VECTOR OR MATRIX 


You can use the compress function / to select certain elements from a 
vector or matrix. The left argument must be a vector of all I's and 0's 
or an expression that results in such a vector. When you select elements 
from a vector the number of elements in each argument must be the 
same; the corresponding elements of the right argument are retained for 
each 1 in the left argument. 


EXAMPLES: 


V 2 3 4 5 6 7 8 

1. 0 1 1. 0 1. 1. 1./V 

1. 3 4 6 7 8 

0 0 0 0 0 0 0 o/v 

—---Result is an empty vector. 

0 0 0 0 0 0 1 . 

A/V 

1 . 8 

1. 0 1. O/'ABCD’ 

AC 
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When selecting elements from a matrix, you must select and omit entire 
rows or columns. To do this, you must specify the coordinate (rows or 
columns) to be acted on by using an index value [I]. The index value is 
1 if the first coordinate (rows) will be acted on and 2 if the second 
coordinate (columns) will be acted on. 


EXAMPLES: 


Remember, the left argument must contain a 
1 for each item to be selected and a 0 for each 
item to be omitted. 

The first coordinate (rows) is specified. 

The second coordinate (columns) is specified. 


If no index entry is specified, the last 
coordinate (columns) is acted on. 


EXPANDING A VECTOR OR MATRIX 

You can use the expand \ function to insert blanks or zeros in a 
vector or matrix. The left argument must be a vector of all 1 's or 0's or 
an expression that results in such a vector. The number of 1 's in the 
left argument must be equal to the number of elements in the right 
argument. The 0's in the left argument indicate where the blanks or 
zeros will be inserted; blanks are inserted in a character vector or matrix 
and zeros are inserted in a numeric vector or matrix. 



0 1 0 /1" :l. IIB 


7 8 

1 0 1 0 / II2IIB 


11 


1 0 1 0/B 


...i i 

o i I 


EXAMPLES: 


:l. i o i m :l.\:i. 2 3 M- 

:i. 2 0 3 0 4- 

:l. :!. 0 I 

AB C :o 


0 


A BCD 1 



When you expand a matrix, entire rows or columns of blanks or zeros 
are inserted. As when using the compress function, you can specify the 
coordinate (rows or columns) to be acted on by using an index value 
[I]. The index value is 1 if the first coordinate (rows) is to be acted on 
and 2 if the second coordinate (columns) is to be acted on. If no index 
entry is specified, the last coordinate (columns) is acted on. 

EXAMPLES: 



3 'I- 

:i. o 

3 0 

3 4- 

0 0 


I. 0 

1 I 



■The left argument must contain a 1 for each 
row or column being acted on. That is, the 
number of ones in the left argument must be 
equal to the coordinate being acted on (for 
example, the number of rows or columns). 

Insert columns. 


Insert rows. 


1 . 0 
3 0 


AB 

CD 

A B 
C D 


:!. 0 

C<-2 

0 

1 0 



If no index entry is specified, the last 
coordinate (columns) is acted on. 


Problems: Using the Compress and Expand Functions 

1. Define a vector called ACCTS containing these five accounts: 56 

103 100 13 0. Select those with balances of $100 or 

more. 

2. Define the matrix DATA<-3 3p \9. Then insert a row in 
DATA, with the values 20, 21, and 22, after the first row. 


Possible Solutions 
Problem 1: 


A C C T S *• 5 6 :l. 0 3 i 0 0 :!. 3 0 
< ACCTS > 1 0 (J > / ACCTS 
1.03 1.0 0 
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Problem 2: 


DAT A *-3 3,ox? 

DATA 

1 2 3 
4 5 6 
7 8 9 

datam o i i\i: :i. ::idata 

DATA 

.1. 2 3 
0 0 0 
4 5 6 
7 8 9 

DATA 112 ; 3<-20 21 22 


JOINING TWO ITEMS TOGETHER 



You use the catenate function (,) to join two vectors together to make 
a single vector by placing a comma between the left and right arguments. 
The number of elements in the resulting vector is the sum of the number 
of elements in the two vectors being joined (catenated). 


EXAMPLES: 


M ' .1. A'.. 

B 4 5 6 
A 1 B 

.1. 2 3 4 5 6 
B • A 

4 5 6 1 2 3 

O ‘ CAT ' 

D<- ‘ EN ’ 

£i 1 AT I ON ‘ 
C , D , E 

CATENATION 


A > C 

DOMAIN ERROR 
A .> C 


A 


A vector must be either all numbers or all 
characters; therefore, you cannot catenate 
character data to numeric data. 





You also use the catenate function to join two matrices together. To do 
this, you can use an index value [I] to specify which coordinate is to be 
extended (that is, whether the number of rows or the number of columns 
is to increase). The index value is 1 if the first coordinate (number of 
rows) is to be extended and 2 if the second coordinate (number of columns) 
is to be extended. When no coordinate is specified, the last coordinate 
(columns) is acted on. 


EXAMPLES: 


A<-2 2 p i. *+ 
B<-2 2p4-+\4 
A 


1 

3 


. 1 . 

3 

1 

3 

:l. 

3 


p 

't 

6 

8 


5 

'*} 

Am 

't 

6 
8 


B 



You have just joined two columns to two 
existing columns (increased the number of 
columns). 


When no coordinate is specified, the last 
coordinate (columns) is acted on. 


In this case, you have joined two rows to two 
existing rows (increased the number of rows). 


When you catenate two matrices, the arguments must conform—that is, 
the lengths of the columns (number of rows) must be the same if the 
columns are to be catenated and the length of the rows (number of 
columns) must be the same if the rows are being catenated. 
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EXAMPLES: 


i'H-2 2 p4 
A 

4- i+ 

4- 4 

C <-■ 2 3 p 6 
C 

6 6 6 


a > i:: nc 

LENGTH E R RO R -*-The length error was; caused because the row 

A > II1II C coordinate was specified when A and C have rows 

a of different lengths. 



A .• II 2 II C --Note that the matrices can be joined along the 

4 4 6 6 6 column coordinate, since the lengths of the 

4 4 6 6 6 columns are the same. 


Building a Vector of Results Using Catenation 

Suppose that as you work through a series of problems you want to 
accumulate the answers. One way to do this is to catenate each new 
result to a vector of results previously obtained. If the most recent 
result is in a variable called LATEST and all the former results are in a 
vector called RESULT, you could use the following instruction: 


RESULT*- RESULT, LATEST 






Note: The first time this instruction is executed, there is no value for 
RESULT. Therefore, before you use this instruction, you should enter 
the following instruction: 

RESULT^ 0 

This instruction gives RESULT an initial value (makes it an empty 
vector). 


EXAMPLES: 


LATEST*- :l. (MS 
RESULT+RESULT,LATEST 

VALUI::! ERR0 R-RESULT does not have a 

RESULT*-RESULT , LATEST value; therefore, it is not a 

variable and cannot be used 
in an instruction. 


Give RESULT an initial 
value (empty vector). 

Blank display. 

Now RESULT can be used. 

LATEST*-15+1 0 

R E SIJ L T *• R E S U L T , L A T E S T 

RESULT 


RESULT*- x 0 
RESULT 


RESULT*- RESULT,LATEST 
RESULT -- 


Problem: Using the Catenate Function 

Assign codes to variables as follows: A«-T, B<-T', C< 'D', D«-'R', E«-'GH', 
F«-'YO', G<-' ', and H< 'U'. Then see what message is displayed if you 
catenate the variables in the following sequence: 

FHGCACGABGDAEB 
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Possible Solution 


A <- 1 I ' 

Bf- * T * 
l> * D ’ 

D <- 1 R ' 

E <- 1 GH 1 
F«-' YO 1 
G< ' ' 

' U ’ 

F; H , G > C, A > C ,G,AiBiG»»iA/ E .■ B 
YOU DIB IT RIGHT- 


FINDING THE LOGARITHM OF A NUMBER QTj QJ 

You use the logarithm ® function to find the log of the right argument to 
the base specified by the left argument. The log of a number B to a base 
A is the power needed to raise A to the value B. 


EXAMPLES: 


A<-2 

Bf-Ax-3 

B 

8 

A®B --The log of B to the base A. 
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Problem: Using the Logarithm Function 


1. What is the logarithm of 256 to the base 2? 

2. To what power must 10 be raised in order for it to equal 100000? 

Possible Solutions 

Problem 1: 

2® 25 6 

8 

Problem 2: 

10®100000 
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Chapter 5. Applying the Same Function to all the Elements of a Vector 
Collectively (Reduction) 


It is often useful to have the sum (or the product, or the maximum, for 
example) of all the elements in a vector. APL has a simple procedure for 
applying the same function to all the elements of a vector collectively. 
This function is called reduction, because it reduces a numeric vector 
down to a single number that represents the sum, the product, or the 
maximum, for example. The reduction operator is /. The left argument 
is the function that is applied to all the elements in a vector; the vector 
is the right argument. 

You may have noticed that the reduction operator and the compress 
function have the same symbol. However, you can tell the difference 
between the compress function and the reduction operator by the left 
argument. For the compress function, the left argument is a vector of 
1's and 0's and for the reduction operator, the left argument is an APL 
built-in function. 


PLUS REDUCTION 

EXAMPLES: 

A<-i. 2 3 M- 3 
■{■ / A 
15 

;|. •f2-K3* l -H , 5 « .— Adding all the elements of A together is the 

15 same as +/A. 


Using Plus Reduction To Find the Average 

The reduction operator is useful for finding the average of the elements 
in a vector. Suppose vector X is as follows: 
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The following expression could be used to find the average of the 
elements in X: 


A VG < +/X )- px 
AVG 


Now let's analyze the previous expression. 

1. We find the number of elements in X (the length of X): 



2. Then we calculate the sum of the elements in X: 


1.6 


f/X 


3. Now we can find the average by dividing 16.5 by 6: 


A V i. j 1.6 . b 6 
AVG 
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Problems: Using Plus Reduction 


1. Using reduction, find the average amount that a certain family 
spends each week on food. The weekly grocery bills for November 
were $31.05, $29.78, $25.44, and $35.98. 

2. Temperatures of a laboratory solution were recorded over a 
12-hour period: 


6 

AM 

75.8° 

7 

AM 

71.9° 

8 

AM 

77.0° 

9 

AM 

80.3° 

10 

AM 

85.1° 

11 

AM 

82.2° 

12 

Noon — 

83.2° 

1 

PM 

84.9° 

2 

PM 

85.3° 

3 

PM 

85.0° 

4 

PM 

82.5° 

5 

PM 

80.9° 

6 

PM 

78.4° 


Find the average temperature. 


Possible Solutions 
Problem 1: 


B 1 L L S 31. . 0 5 2 9.7 8 2 5.4- 4- 3 5.98 

A V G < + / BIL L S ) p BIL L S 

AVG 


Problem 2: 


TEMP*75.8 71.9 77.0 80. 3 85. 1 82.2 

5 80.9 78.4 

AVG*O/TEMPH -pTEMP 


83.2 84-. 9 85.3 85.0 82 . 


AVG 


80.962 
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Using Plus Reduction to Sum the Products of Two Vectors 

Suppose that PRICE is a variable that contains the price list for various 
items sold by a store, and Q1 and Q2 are two vectors indicating the 
quantity of these items ordered by two customers. Then the total bill 
for customer 1 is the sum of the product of PRICE times Q1, and the 
total bill for customer 2 is the sum of the product of PRICE times Q2. 


EXAMPLES: 


PRICE*. 66 1.40 27.10 2.39 14.0 0 7.60 8.415 2.80 
Q:U 0 0 2 1 0 0 0 0 
Q 2 2 7 0 15 0 0 0 10 

+ /Q1x PRICE 

56.59 

+/Q2XPRICE 

57 . 67 


MINUS REDUCTION (ALTERNATING SUM) 

EXAMPLES: 


A*3 2 1 4 
-/A 

3 -2" l •~4-* -/A is the same as this expression. 


The following illustration shows why the answer is 2. 




Direction of processing is from right to left. 

■First operation (subtract 4 from 1; the result is ~3). 

Second operation (subtract _ 3 from 2; the result 
is 5). 

Third operation (subtract 5 from 3; the final result 
is ~ 2 ). 

Result. 
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MAXIMUM REDUCTION: FINDING THE LARGEST VALUE IN A VECTOR 


To select the largest single element in a vector, you can reduce the 
vector using the maximum [ function. 


EXAMPLES: 


. 1 . 2 ? 


BALDUE*-62.15 127 M-. M-2 IB . 65 
f/BALDUE 



Amount owed 
by all the 
customers of a 
store. 

Largest amount 
owed. 


MINIMUM REDUCTION: FINDING THE SMALLEST VALUE IN A VECTOR 

To select the smallest single element in a vector, you can reduce the 
vector using the minimum l function. 


EXAMPLES: 


- 9 




NUMBER*! 16 'I- 
L/NUMBER 



OR REDUCTION: CHECKING FOR A SPECIFIC VALUE IN A VECTOR 


Suppose you want to know whether a certain value exists in a long 
vector. You could use Or reduction (v) to find the answer. 


EXAMPLES: 


Generate a vector of 50 random numbers. 


NUMBE RS<-5 0 ? 10 0 
v/NUMBERS™8 



The result of NUMBERS=8 is a vector 
consisting of a 0 for each element of 
NUMBERS that does not equal 8 and a 
1 for any element that does equal 8. 

When the vector (result of NUMBERS=8] 
is reduced (the Or function is placed 
between each element), the result is 1 if 
at least one of the elements was 1. 

A displayed result of 1 indicates that the 
value 8 was in NUMBERS and a 0 
indicates that it was not. 


AND REDUCTION: CHECKING FOR ALL VALUES IN TWO VECTORS 
BEING EQUAL 

You can use And reduction ( A )to determine whether corresponding 
elements of two vectors are equal. 


EXAMPLES: 


0 


KEY«-1 , 01 .1. . 763 1.888 .1. , 2346 
LOCK f- 3 . .01 1 . 763 1 .898 1 . 2346 
a/KEY-LOCK 
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Two vectors 
that have the 
same number 
of elements. 


At least one of 
the elements of 
KEY does not 
match the 
corresponding 
element of 
LOCK. 
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Chapter 6. Using the Built-in Functions 


This chapter contains a summary of the things you can do with the APL 
built-in functions. Some of the functions have already been discussed 
in the previous chapters and all of the functions are described in the IBM 
5110 APL Reference Manual , SA21-9303. Also, there is an example 
included for each function; you should enter these examples on your 
5110 to see how these functions work. 

Note: Many of these functions provide special computational capabilities. 


NOW LET'S LOOK AT THE THINGS YOU CAN DO 

Things You Can Do Function Name Keys 

APL Functions That Require One Argument (see Chapter 3 
for more information) 

• Determine the next larger whole Ceiling 
number 

I” i.|. , 60 6 --- If the number is already a whole number, 

«"• 0 the same number is the result. 

• Determine the next smaller whole Floor 
number 

| L|. , /,0 2 --If the number is already a whole number, 

i.|. 2 the same number is the result. 




• Sort a string of numbers in Grade up 

ascending order 



v'j 


4i A 3 
•| ? 4 

AU.AT 
3 7 9 


Indices of A in ascending order 
-Sorts A using the indices 
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Things You Can Do 

• Sort a string of numbers in 
descending order 


Function Name 
Grade down 


Keys 



4 

9 


2 1 
7 3 


9A«-3 7 
3 5 
AC9A3 
2 1 


2 9 .1. 


Indices of A in descending order 
Sorts A using the indices 


• Generate a random number Roll 


The result can be any number between 
1 and 6. 




• Generate a consecutive string of Index generator 
numbers 



1 


\ 5 

l- *' '■* ~ Generates a string of five consecutive 

numbers. 


• Determine the length of a string Shape CT 

or the number of rows and LJ 1 

columns in a table 



Length of the string named A 


•"> “K 

A.. 




Creates a table and finds its shape in the 
same instruction (the number of rows and 
columns) 

Reshape function (discussed in Chapter 2) 
Shape function 
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Things You Can Do 


Function Name 


Keys 


APL Functions That Require Two Arguments (see Chapter 4 
for more information) 

The result from the following six functions is 1 if the relationship 
specified by the APL function is true; otherwise the result is 0. 

• Determine whether two values Equal to 

are equal -* 


3 3 ” :: 33 


• Determine whether the left 
argument is greater than the 
right argument 

1 6 > ( 


Greater than 



• Determine whether the left Less than < 

3 

argument is less than the right v — ^ 

argument 


3 •• 4- 


• Determine whether the left Greater than or 

argument is greater than or equal equal to . 

to the right argument 

1 2 > :l. 1 1 2 


• Determine whether the left Less than or 

argument is less than or equal to equal to 
the right argument 



• Determine whether two values Not equal to 

are not equal 





Things You Can Do 


Function Name 


Keys 


The following two logical functions are usually used to check 
the results from relational operations. Logical functions can 
use only 1 # s and 0's as arguments. The result is 1 when the 
condition being checked for is met; otherwise, the result is 0. 

• Determine whether two conditions And FT 

are true I o 


:U;|. o 

1 . 0 

• Determine whether at least one Or F“7 

of two conditions is true 

:l. v ;|. o 


• Find the larger of two numbers Maximum 



• Find the smaller of two numbers Minimum 


i* 


5 L. 1 1- 



• Find the index of a given value Index of 

in a vector 



The right argument is found in the third 
position of the left argument, which is a 
vector. 


• Generate a specific number of Deal 

different random numbers 



3?6 


■Can be any three different numbers 
between 1 and 6 
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Things You Can Do 

Function Name 

Keys 

• Compress (select certain elements 
from) a vector or matrix 

Compress 

m 

1 0 0 1/2 3 5 




4- i -Selects the elements that correspond to 

the ones in the left argument 


0 3 0 


• Expand a vector or matrix Expand m 

0 :l. 0 :l. 0 1 0V2 3 4- 5 

i| fj i::- q —-Inserts elements according to the zeros 

in the left argument 


• Join two arguments together Catenate 

‘ CAT ' .. ' EN ' .. ' ATI ON ' 

CATENA! ION 



• Find the log of a number Logarithm 


2 ® 8 


Log of 8 to the base 2 



APL Functions In Addition To The Ones Already Discussed In 
Previous Chapters (see the IBM 5110 APL Reference Manual, 
SA21-9303, for more information) 


• Change the sign of a number Negation 

•3 4 

"3 L|. 



• Find the sign of a number 

x ”2 0 2 

" I. 0 1—- 


Signum 



The result is ‘1 for a negative number, 
0 for 0 , and 1 for a positive number. 


® Find the reciprocal of a number Reciprocal 


0.33333 
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Things You Can Do 


Function Name 


Keys 


• Raise e (2.71828) to a power Exponential 

»1 3 

2,71.83 20.086 

• Find the log of a number to the Natural log 
base e 

® 2.71.83 20.006 

1. 3 


• Multiply a number by pi Pi times 

(3.14159) 

o :l. 3 

3.1. 41.6 9. i+21+8 


CD 

□ 0 



• Find the product of all whole Factorial 

numbers between 1 and a 
specified number 




24 


! 4 


The result is the same as 1x2x3x4. 


• Change a 1 to a 0 or a 0 to a 1 

" 1 . 0 

0 1 . 


Logical not 



• Determine whether at least one Nand 
of two conditions is false 



0 1 . 


1. a 1. 0 


The result is 1 when at least one argument 
is 0; otherwise the result is 0. 


• Determine whether two conditions Nor 
are false 



0 0 


1.C2I. 0 


The result is 1 when both arguments are 0; 
otherwise the result is 0. 
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Things You Can Do 

Function Name 

Keys 

• Change a scalar or matrix into a 

Ravel | 

\ 

vector 


^ ^ 


MATRIX**2 3 p\6 
MATRIX 

1 2 3 
'-I- 5 6 

,MATRIX 

x ii k; / ^_The result is a vector. 


• Execute a character string as an Execute 

APL expression 

i. ‘ 2x4 1 

8 



• Convert numeric data into Format 

character data 



A*' t 24 
A 



How to use this function with two arguments 
is discussed in the IBM 5110 APL Reference 
Manual, SA21-9303. 

This is a character value. 

A is a two-element (character) vector. 


• Find the value of a number 
without regard to the sign of 
the number 

153 "46 

53 46 


Absolute value 



• Invert a square matrix or compute 
the pseudo-inverse of a rectangu¬ 
lar matrix 

Matrix inverse 

ID 


* .... "■> 

l9A<-2 2 p J. 3 5 7 
"0.875 0.375 

0.625 ”0,1.25 




• Reverse the elements in a vector 
or matrix 

Reverse 

[ M 

1 

- N 

0 


<P' LIVE ' 

EVIL 
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Things You Can Do 


Function Name 


Keys 


• Find the remainder left over from 
a divide operation 


Residue (remainder) r~ t | 

[_mJ 


318 

' ■;> - 


2 is the remainder of 8 divided by 3. 




Find the values for the trigono¬ 
metric functions of an angle 



Circular 



The left argument specifies the trigonometric 
function (in this case, tangent). 

The result is the tangent of 45° (rr f 4 radians). 


• Find the number of combinations Binomial 
of a number taking so many at a (combination) 
time 


□ □ 


Four items taken two at a time can make 
six different combinations. 


• Find out if a certain value (left Membership 

argument) exists in a vector or 
matrix 



1 ABC ' € ’ BANANA *-*—The result is 1 if the value in the left argument 

exists in the right argument; otherwise the 
result is 0. 


• Express a value in another Decode (base value) fT”') 

number system [ b J 

2'+ 60 60.I..I. 30 15 

5M-15 Expresses 1 hour 30 minutes 15 seconds 

in all seconds 


• Represent a value in a specified 
number system 


Encode 

(representation) 



1. 3 0 


2 '+ 60 60r5«+15 

•I. 3 -- Represents 5415 seconds in hours, minutes, 

and seconds 


Using the Built-In Functions 69 



Things You Can Do 

• Solve one or more sets of linear 
equations with coefficient 
matrices 


Function Name 

Keys 


Matrix divide 

m 

□ 


26 9EIB*-2 2p'3 5 1 


• Take a certain number of elements Take 
from a vector or matrix 



These three elements were taken from the 
vector. 


• Drop a certain number of elements Drop 
from a vector or matrix 




The result is the elements remaining after 
the specified number of elements have 
been dropped. 


Join two arguments together by 
forming an array with an 
additional dimension 


Laminate 


CD 


4 


Join along a new first dimension. 

5 ;.l 6 7 8 9 0 


3 4- 5 
8 9 0 


Two vectors are joined to form a matrix. 


• Rotate the elements in a vector 
or matrix as specified by the 
left argument 





Rotate 



4 5 


Rotates the vector two positions 



Things You Can Do 


Function Name 


Keys 


• Create data arrangements with at Reshape 
least one dimension (a data 
arrangement with two dimensions 
has both rows and columns) 



1 

4 

7 

10 
13 
16 



A k k i"i Y '<••2 3 3 p \ 1B 
ARRAY t t t 


Each number in the left argument is called 
a coordinate—this N-rank array has three 
coordinates. 

Last coordinate is the columns. 


8 


1 4 



Next to the last coordinate specifies rows. 
Leftmost coordinate is the planes. 

Planes 


.i. ( 




You can index elements within N-rank arrays 
by putting a semicolon between coordinates. 


• Interchange coordinates (such as Transpose or 
rows and columns of a matrix) generalized 

of an array transpose 



feiARRAY 

1 10 
4 13 


.i. .i. 

5 14 

8 1.7 

3 12 

6 1.5 

9 18 


When used with one argument, this function 
reverses the coordinates. 

Note: This function could also be used with 
a left argument that specifies how the 
coordinates are to be interchanged. 
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Things You Can Do 


Operator Name 


Keys 


APL Operators 

An APL operator applies certain built-in functions to all the 
elements of a vector or matrix. The reduction operator has 
already been discussed in Chapter 5. 


• Apply the same function Reduction 

collectively to all the elements 
of a vector 



+/1 2 3 4 5 


!“i 

IV 32 6 77 

19 2 

i 

1../ 32 6 77 

1 9 2 


The sum of the elements 
The largest element 
The smallest element 


• Apply the same function Scan 

cumulatively to each element 
of a vector (the result of each 
operation is used in the next 
operation) 



+ \ 1 2 •.:> 4 
:i. 3 6 :i. 0 


:l. o 


:l. 

1 + 2 

:l. +2+3 
:l. +2+3+4 


The scan function works the same as if you 
entered these instructions. Remember, the 
individual functions are executed from right 
to left. 


• Generate operation tables for Outer product 

various APL functions and data 



4 


A+1 2 3 4 
A . x A 
2 3 4 

4 6 8 

6 V . 1 . 2 
8 12 16 


A multiplication table of numbers 
1 through 4 
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Things You Can Do 


Operator Name 


Keys 


• Find the matrix product of two Inner product 
matrices 



19 

43 


A<~2 2pi 2 3 4 
B<-2 2 p 5 6 7 8 
A+ . xB 

---— The matrix product of matrices A and B 


• Table look-up 


Inner product 



A'•!• 4 p ' J 0 H N J A N E J A C !< I< A T E ‘ 

A 

JOHN 

JANE 

JACK 

KATE 

' JOHN ' A . :::=NA 

1 0 0 0-*——-John is the first name in the table. 

' JACK ‘ A , ::."NA 

0 0 .1. 0-«-Jack is the third name in the table. 
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Chapter 7. Function Definition 


WHAT IS FUNCTION DEFINITION? 

Although APL has many built-in functions, there will be times when 
you want a special function to solve a problem. APL allows you to 
define your own functions (called user-defined functions) and store 
them for repeated use. 


HOW IS A FUNCTION DEFINED? 


You use existing APL functions to create a new user-defined function. 
The new function consists of: 

• A function header containing the name of the function and other 
information (the types of function headers are discussed later in 
this chapter). 

• An expression or series of expressions, called statements, which define 
the operation(s) to be performed. 

When executing APL expressions, the IBM 5110 is in execution mode; 
however, before a new function can be defined, the mode must be 
changed to function definition mode. The V (del) symbol is used to 
change the 5110 from one mode to another. For example, to change 
from execution mode to function definition mode, a V is entered as the 
first character in the function header; then after the function is defined, 
another V is entered to close the function definition and change the 
mode back to execution mode. Once the 5110 is back in execution 
mode, you can execute your user-defined function. 

Now, to show how a function is defined, let's create a function to find 
the hypotenuse of a right triangle. The expression used for this could 
be written as ((A*2)+(B*2))*.5, where we square the lengths of the two 
sides A and B and then take the square root of their sum, which is the 
length of the hypotenuse. The function must have a name by which it 
can be identified, so let's name this function HYP. Now enter the 
opening v (to place the 5110 in function definition mode) and the 
function header, as follows: 


VHP*-A HYP B -*-Function header. 


i: ;i. ::i 



APL responds with the number of the first 
statement (expression) to be entered. 
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As each statement is entered, the next statement number is displayed. 
Now enter the remainder of the function as follows: 


HP<(<A#2>+<B*2>)*.5 


V 



Expression 

Closing V — Changes mode back 
to execution mode. 


Notice that the names in the function header (other than the function 
name itself) are all used in the body of the function. In particular, 
notice how the result variable name, HP, is assigned the final result by a 
statement in the function. 

The display screen will now look like this: 

VHP*-A HYP B 

1 "I H P <•• < (A * 2) •{•• < B # ?) ) * . 3 

i:: 2 :i v 


Note: If you make a mistake when entering this function, see What To Do 
If You Make a Mistake When Defining Your Function later in this chapter. 

When you entered the closing v, the function HYP was stored in your 
active workspace, so you can use it just like any other APL function 
with two arguments. 


EXAMPLE: 


3 



L|. 


Lengths of the two sides. 


Li -*-—-— Length of the hypotenuse. 

Xt-6 

Y<-8 

X HYP Y\ 

10 ... \ . 

R<-3 6 y Like other APL functions, the arguments can be 

L*-*+ 8 in different forms. 

R HYP \.y 

5 10 


Whenever you want to use HYP, just enter its name with the arguments 
you want. The symbol for the calculation of the hypotenuse of a 
right triangle is HYP, just as the symbol for addition is +. 


Function Definition 75 




A function can have only one instruction, like HYP, or it can contain 
many instructions. 


EXAMPLE: 


VI IP<-A HYPL B -*-The function HYP could also have been 

II1 "I A2Ax 2 defined like this. 

II2II B 2 *■ B x 2 

II3II S<-A2 + B2 _ _Note that the closing V can also be on the 

II4II MPf-Sx . '5V " same line as the last instruction. 

3 HYPL 4 


Same result as HYP. 


Problems: Using Function Definition 

1. Define a function that displays the sum of any two numbers. 
Then use the function. 

2. Define a function that displays the area of any rectangle. 
Then use the function. 


Possible Solutions 

Problem 1: 

VS*M SUM N 
II til S«-M+NV 

6 SUM 3 
9 


Problem 2: 

VAf-LENGTH AREA WIDTH 
dll AH..ENOTHxWIDTH 
II2II V 

4 AREA 3 

2 0 


TESTING YOUR FUNCTION BEFORE USING IT 

Once you define your function, you should always try using it with 
data that will give you a known result. For example, suppose that in 
the function HYP you used the following expression by mistake: 


< < Ax 2 ) f ( B x 2 ) ) x 


Should have been * 









You would get an answer, but it would not be the right answer for the 
hypotenuse of a right triangle. 

When you test your function, one of the following will occur: 

• The 5110 will display the result you expect. 

• The 5110 will display an error message. 

• The 5110 will display a result, but not the result you expect. 

• Nothing will happen. 


If the 5110 Displays the Result You Expect 
Great! Your function works. 

Note: Even though your function worked one time, you may want to 
test it some more to make sure it will work for each application you 
intend to use it for. 


If the 5110 Displays an Error Message 

You can use the IBM 5110 APL Reference Manual, SA21-9303, to find 
out what the error message means and what you must do to correct it. 

Note: An error condition will cause the execution of your function to 
stop; see Chapter 8 for more information on what to do when your 
function stops executing. 


If the 5110 Displays a Result Other Than the One You Expect, or 
If Nothing Happens 

In either of these cases, you have two alternatives: 

• Display the entire function and check it for errors. Displaying the 
Entire Function is discussed later in this chapter. 

• Use the trace and stop features (discussed next) to help find the 
problem. 

Note: When a user-defined function is used and nothing happens 
(that is, neither result nor the cursor appears on the display screen) 
or a result is repeated continuously, the function is probably 
looping. In this case, press the ATTN key to stop (suspend) function 
execution. Chapter 8 contains information on what to do when your 
function stops. 
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HOW TO USE THE TRACE AND STOP FEATURES 


LU LLU 


Trace T a 

The trace feature allows you to watch the execution of your function, 
statement by statement. That is, the final result calculated for each 
statement traced is displayed. You can either trace all of the statements 
or just certain statements in a function. To use the trace feature, 
enter Ta , the function name, +, and the statement numbers to be 
traced. For example: 

TAEXAMPLE*•1 2 3 4- 5 6 

-y— v Y " 

■—The statement numbers to be traced 
The name of the function to be traced 


The previous statement could also be entered as follows: 


TAEX AMPLE*- x 6 

T 


Generates a vector of numbers from 1 to 6 


Stop S A 

The stop feature allows you to stop the execution of your function just 
before a specified statement is executed. That is, function execution 
is temporarily suspended (suspended functions will be discussed in greater 
detail in Chapter 8). After function execution has stopped, the 5110 
displays the number of the next statement to be executed. To use the 
stop feature, enter S a , the function name, and the numbers of the 
statements before which function execution is to stop. For example: 


S A lii! X A M P I... E *' 

The specified statement numbers 
The name of the function 


After function execution has stopped, you can start it again by entering 
->□ LC. □ LC (line counter) is a system variable that contains the next 
statement number to be executed; see Chapter 9 for more information 
about system variables, and the IBM 5110 APL Reference Manual, 
SA21-9303, for a complete description of the □ LC system variable. 



Now let's use trace and stop to find a problem in a function. 


EXAMPLES: 


VHP<-A HYPX B 


L:U ‘THE HYPOTENUSE IS’ 
1 : 2:1 A2«-A*2 
E 3 ::i B2<-B*2 


cm 
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S«-A2+B2 
HP«-Sx . 5V 


3 


HYPX 



THE HYPOTENUSE IS 
12.5 


Defines a function that calculates the 
hypotenuse of a right triangle. 

This function has an error in it. 

Tests the function using data for which 
the correct result is known. The result 
should be 5. 


Using the trace feature to find the problem 


TAHYPX<-2 
3 HYPX 4- 
THE HYPOTENUSE 
HYPX i:.‘2.1 * 

HYPX l.:31 
HYPX Dll 
HYPXL51 
12.5 


3 '1 



The 5110 responds with the function 
name, statement number, and the result 
of the statement being traced. 

The correct result was obtained in each 
statement except statement 5; therefore, 
statement 5 probably contains the error. 


TAHYPX «-1 0 -To turn off the trace feature, use i0 as 

the statement to be traced. 


SAHYPXf-4- 


Using the stop feature to find the problem 


3 HYPX 4- 

THE HYPOTENUSE IS 
H Y P X i: 4 1 " 



The 5110 responds with the function 
name and the next statement number 
to be executed. 

When the function is stopped, you can 
enter the variables to see if they con¬ 
tain the expected values. 


-HILC 

HYPX Dll — 


"HILC 



Continue execution by entering ->[]LC, 

Execution stops at the next statement 
specified for the stop feature. 

All the variables contained the correct 
values; therefore, statement 5 must be 
in error. 

To turn off the stop feature, use i0 as 
the statement to be stopped at. 


Note: How to correct an error in a 
function is discussed next. 
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WHAT TO DO IF YOU MAKE A MISTAKE WHEW! DEFINING 
YOUR FUNCTION 

If you make a mistake when defining your function, you can correct it 
by editing the function. When editing a function, you can do the 
following: 

• Display the entire function. 

• Add one or more statements at the end of the function. 

• Replace statements. 

• Insert one or more statements. 

• Delete a statement from the function. 

• Display a specific statement or from a specific statement to the end 
of the function. 

• Modify a single statement. 

If you notice your mistake as you are defining your function, you can 
correct it without reopening the function definition (the 5110 is already 
in function definition mode). However, if the function definition is 
closed, you must first reopen it. To do this, you must enter the v 
followed only by the function name. If you enter the complete function 
header, you will get an error message. 

Now, let's define a function to use in doing some function editing. 

Enter the following: 


VST AT X 

i: :i. ::i n<-*>x 

i::2:i t. •+• / X ) v N 
1 : 3:1 I../X 
i::'i:i r/xy 


This function calculates the average, smallest, and largest number in a 
vector of numbers. Notice that this function does not have a result 
variable in the function header; however, it will still display the results. 
The reason for having a result variable in your function will be 
discussed later. 








Displaying the Entire Function 



To display a function, you enter [[]] immediately after any statement 
number or as shown in the following example. 


EXAMPLE: 



r - 

VST A 7 

r 

i::i:i:r 

\ 

V ST AT 

x ) 

i ::i 

N+- pX 

/ 

2::i 

< + /X) 

+ N\ 

3 ::i 

I../X 


mo 

\ 

r/x 

) 


ST AT 

2 9 


This instruction opens, displays, and closes 

- j _| 

the function definition. 

Displayed function. 

Try the function. 


9 
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Adding One or More Statements at the End of the Function 

To add statements to a function, you open the function definition and 
the number of the first available line is displayed. Then you can enter 
the statements you want to add. 


EXAMPLE: 


VST AT 
r/X) - I /XV' 


The 5110 displays the number of the first 
available line. 

Open the function. 

Add this statement to find the range of the 
numbers in the vector. The V closes the function 
(you are only adding one line). 


i: i. ::i 

1 : 2:1 
1 : 3:1 
1:4 :i 


V 


VST AT 
ST AT 
N p X 
(+ /X) 
I../X 

r/x 

< r/x > 



Display the function. 


Displayed function. 


ST AT 9 


Try the function. 







Replacing Statements within a Function 

To replace statements, the statement number to be replaced must be 
enclosed in brackets [ ] followed by the new statement. 


EXAMPLE: 


VST AT L i:i:i-- 

This instruction opens and displays the 

X 

P ■■■■ 

<L 

!— 

[> 

function. 

til H*-pX i 


l.:23 (F/X)vN f 


1:33 i./x r — 

-- Displayed function. 

l: 4 3 r/x l 


C53 <r/X)-|„/X ) 



V 



i: 6 j 1:2:1 <f/x)vpxy 


The 5110 displays the number of the first 
available line. 


Notice that you can specify another state¬ 
ment number by enclosing it in brackets. 
Now, replace statement 2 with this state¬ 
ment for finding the average. The V closes 
the function. 

In this example, you could also use the scroll 


down key 


and scroll up key 


to place statement 2 on the input line 1. Then 
statement 2 can be corrected; however, you 
must make sure that statement 3 does not 
appear on line 0 before you press EXECUTE. 


VSTATCLPy ---Display the modified function. 

y STAT X \ 

1 : 1 3 N p X I 

1 : 2:1 (/ .X ) v- p X f 

i: 3 :i L /X /“* Displayed function. 

1 : 4:1 f/X l 

1:33 (r /x) -1 /x 1 

y J 

S T A T 9 :l. 2 
4 
1 
9 
8 
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Inserting One or More Statements in a Function 

To insert statements in a function, you must use a decimal statement 
number that is between the numbers of the statements where you want 
to insert the new statement. For example, to insert a statement between 
statements 1 and 2, you could use the statement number 1.5 or any 
decimal number between 1 and 2. 


EXAMPLE: 

Open the function. 

The 5110 displays the number of the first 
blank line. 

Insert a statement between statements 1 and 2; 
the inserted statement displays the vector of 
numbers. 

If you do not enter V , the 5110 responds 
with another decimal statement number. 

Enter the closing V. 

v s tat r: i; j ::i v 

V STAT X 

i: :i. ::i n<-*>x 

i: 2 :j x 

r: 3 ::i (+/x>*px 

i: >i ::i i.,/x 

i:: b ::i r/x 

i: 6 :;i *; r/x>-i../x 

v’ 

ST AT 9 2 :!. 

9 2 . 1 . 

'{• 

1 

o 

e 
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Deleting a Statement from a Function 



To delete a statement from a function, you enter [An], where n is the 
number of the statement you want to delete. 


EXAMPLE: 



II5 U V know the smallest number. 


Note: The closing V must/70f be entered on 
the same line as [A n]; you must enter it on 
another line or an error will occur. 



VST A3' II0IIV - 


- Display the modified function. 


V STAT X 



II1II 

NKpX 



II2 U 

X 



II3 3 

< •♦•/X ) X 

- - 

- Displayed function—the original line 4 was 

II4-11 

r/x 


deleted and the statements were renumbered. 

1153 

< r/x)-L/x 

V 




ST AT 2 9 1 




2 9 1. 

4- 

9 

8 

You can also delete a statement by displaying the statement on input 
line 1, pressing the ATTN key (to blank the entire expression), and then 
pressing EXECUTE. Displaying a specific statement is discussed next. 


Function Definition 85 



Displaying a Specific Statement or from a Specific Statement to the 
End of a Function 

You have already seen how to display the entire function; you can also 
display only one statement or each statement from a certain statement 
to the end of the function. To display one statement, you enter [nQ], 
where n is the statement number you want to display. To display each 
statement from a certain statement to the end of the function, you 
enter [□ n], where each statement from statement n to the end of the 
function is to be displayed. 


EXAMPLE: 


VS T A T E 30 'I V"*-- Display statement 3. 

i:: 3 ::i (+ / x) p x 

VSTATl”0 l + 3 V "*— -Display each statement from statement 4 to 

I" 4 "I I /X the end of the function. 


< f'/X ) -|./X 


Modifying a Single Statement 

You can correct keying errors in a statement of a function the same way 
you correct keying errors made during entering of instructions in 
execution mode. That is, the same procedures for inserting, deleting, or 
replacing characters are used. To correct keying errors in function 
definition mode, you must currently be entering the statement in error 
or you must display the statement you want to correct. 





EXAMPLE: 



Open the function and display statement 2. 

Enter an N to replace the X in the displayed line. 
(You now want to know the number of elements 
in the vector.) 

The 5110 responds with [3]; now enter the closing 


V. 


VS T AT LO JV - -Display the function. 

V STAT X \ 


c i. :i 

112 3 

i: 3 ::i 

1:43 


v 


hH-pX 

N 

( +/X ) pX 

r/x 

(|VX) -L/X 


/ 


N has replaced the X. 


3 

i.,. 

9 

8 


STAT 2 9 .! 


Editing the Function Header 

You can edit the function header the same way you would edit any 
other statement in the function. To do this, you specify statement 0 as 
the statement to be edited. 


EXAMPLE: 


i: :i. 3 
i: 2 3 
C33 
i: 4 3 


V 


V 


VST AT C 0 3 STAT :l. X V 
VST ATI i::03 
STAT1 X 
N*-pX 
N 

<+/X )■•:■ pX 

r/x ' 

< r/x) ”i_/x 



The original function header is 
replaced with this function header. 

Display the function. 

Note: Do not be concerned at this 
time if the error message SI 
DAMAGE is displayed; this error 
message and a suggested user response 
is described in the IBM 5110 APL 
Reference Manual, SA21 -9303. 


VSTATi::i33V — 
DEFN ERROR 

VST AT 


You cannot display the function 
STAT because the function no 
longer has that name. 
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A Faster Way to Add, Replace or Insert One Statement in a Function 

If your function is closed and you have only one statement to add, 
replace, or insert, you can do it using only one instruction. For 
example, the following instruction opens, changes, and closes the 
function definition: 


Opens the STAT1 function. 

Specifies that statement 3 is to be edited. 

Replaces the existing statement 3. 


Closes the STATI function. 


vst ATi. i: 3 ::i (■*•/>: >vNV 
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EXAMPLE: 


VS I A1 .1. L 0 J V -*-Display the STAT1 function. 

V STATI X 
Cl 3 N<-pX 

C 23 N 

1:33 <+/x>*px 

1:43 r/x 

1:5:1 < r/x > -1 /x 

v 


VST ATI l.:6 3 ' THIS 


STATEMENT WAS ADDED ‘V 

Add a statement to the function. 


3 

4 
? 

8 

THIS 


SCAT 1 2 9 :l. -*--Now try the function. 


STATEMENT WAS ADDED 


VST AT 1.1:3 3 (f/X)vNV 
V S T A T :l. i: 3.5 3 L / X V 
VST AT li: 03V 
ST ATI. X 


i: 1 3 

N<-,oX 

C23 

N 

C33 

(F/XHN 

I!! 4 3 

L/X 

i:53 

r/x 

i:6 3 

<r/x)-L/x 

i:?3 

•THIS STA 



Replace a statement. 

Insert a statement. 

Display the modified function. 


STATEMENT WAS ADDED 


STATI 2 9 

3 

4 
:l. 


8 

THIS STATEMENT WAS ADDED 
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TYPES OF FUNCTION HEADERS 


Like the APL built-in functions, you can have user-defined functions 
with one or two arguments. You can also have user-defined functions 
without any arguments. The number of arguments required by a 
function is defined in the function header. For example: 


VRESULT^-ARGUMENTI FUNCTIONNAME ARGUMENT2 
^^ This function requires two arguments. 

V RESULT-e-FUNCTIONNAME ARGUMENT 

function requires one argument. 

V RESULT^FUNCTIONNAME 
^^ This function requires no argument. 


When a function is executed, the value used for an argument is assigned 
to the variable name that appears as the argument in the function 
header. This variable is then used in the function. For example, you 
might have the following function: 


V R A DIVIDE B 
i: i ::i r*-a*bv 


If you enter 10 DIVIDE 2, the value 10 is assigned to A and the value 2 
is assigned to B. Now when the statement At B is executed, the result 
is 5. 

Note: For some user-defined functions (as with some built-in functions), 
it is important that you enter the arguments in the proper order. For 
example, if you enter 2 DIVIDE 10, the answer would be 0.2 instead of 5. 

When you define a function with one argument, the argument must be 
to the right of the function name; otherwise, the argument will be 
treated as the function name, and vice versa. 
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EXAMPLES: 


VR*A AREAl B-* -Two arguments—this function finds 


til 

R«-AXBV 


the area of a rectangle. 


12 AREA:! 

. .12 


1 * 1 *+ 





VR* SORT 

X -- 

One argument—this function finds 

i i ::i 

R«-X*, 5 V 


the square root of a number. 


Af j. 4 9 

16 2 b 3 6 



SORT A - 


-The argument can be a vector. 

t 2 

3 4 5 6 




VRf-DICE- 


-No argument—this function simulates 

i: :i. ::i 

Rf"’?6 6 


the roll of two dice. 

121 

V 

DICE 



1 5- 



The results can be any pair of numbers 


DICE_ 

—-' 

between 1 and 6. 

3 4 - 

■*—" 




WHY HAVE A RESULT VARIABLE? 

So far in our discussion of user-defined functions, we have usually 
defined functions with a result variable. A result variable is a variable in 
which the result of a function is temporarily stored for use in an APL 
expression. When your function has a result variable, it is said to have 
an explicit result. Without an explicit result, your function cannot be 
used in an APL expression. 

The following function has a result variable; therefore, it has an explicit 
result. 


^ Result Variable 

v RE SUL 7>-GTY ITEMX COST 

i: :i. ::i r e s u l t <- c o s t q t y v 

t 

Result Variable 


The result variable must appear in both the function header and the body 
of the function (it must be included in the statement where the final 
result is determined). 
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EXAMPLES: 



VGTY ITEM COST- - 

-Define a function without an 

Cl 3 CC 

3ST+QTYV 

10 ITEM .60 

explicit result. 

0.06 


STORE*-10 ITEM .60 — 

—-p The result of the function cannot 

0 . 0 6 


/ be used in APL expressions. 

VALUE 

ERROR / 

STORE*-10 ITEM 0.6/ 

.a / 

10 + 10 ITEM .60 * 

f 

0 . 06 

VALUE 

ERROR 

10+10 ITEM 0.6 



V RESULT*•G ITEMY C -*-Define a function with an explicit 

Cl 3 RESULT+C+QV result. 

10 ITEMY .60 

0 . 06 

3 J 0 R E f ;|. 0 ITE M Y . 6 0 -*——^ The result of the function can now 
STORE s' be used in an APL expression. 

0 . 0 6 

j. 0 + .1. 0 .1. T EM Y . 60 Remember, if you plan to use the 

I 0 . 0 6 function you are defining in an APL 

expression, you must provide a 
result variable. 


LOCAL AND GLOBAL NAMES 

A name appearing in a user-defined function can be either local or 
global. A global name has the same value during the execution of a 
function as it has outside of the function. A local name has a value that 
is available only while the function is active. Any name appearing in the 
function header (except the function name) is a local name. So far we 
have seen that a function header can contain a result variable and argu¬ 
ments. Because these variable names are contained in the function 
header, they are local to the function. But other names can also be 
made local to the function if they are placed in the function header 
following the right argument (if any) with a semicolon preceding each 
name. For example, the function header V LOOP R;I;J makes the right 
argument R and the variables I and J local to the function. Now to see 
how local and global names work, let's use some. 






EXAMPLES: 


VGLOBAL 


Cl 3 

GA*3 

C23 

GB* 4 

C33 

GO 5 

1143 

GA+GB+GCV 


GLOBAL 

12 

GA j 

3 

4 

GB L - 

c:* 

GC ) 


Define a function without 
any local names. 


Because these names are global 
variables, they also exist out¬ 
side the function. 


VLOCAL ;LA;LB;LC 
Cl 3 LA*-3 —— 

C23 LB Mi¬ 
ll 33 L(>5 - 

l: *1 :.1 LA+LB+LCV 
LOCAL 


Define a function with all 
local names. 


Notice how the names are 
made local to the function. 



Execute LOCAL, then enter the variable 
names to see what values they represent. 

Because these variable names are 
local to the function, they repre¬ 
sent a value only during the 
execution of the function. 


C 2 3 
i: 3 3 
CM-3 



Define a function using both 
local (GA and GB) and global 
(GC) names. 

Local names that are the same 
as existing global names. 


GOO 

GA+GB+GCV 
COMBINATION 


Global name. 


2 . 1 . 


GA 


3 


i.|. 

8 



Notice that outside the function, 
the existing global values (previously 
established by the function GLOBAL) 
are used. The new values (6 and 7) 
existed only during the execution of 
the function. 

Because this variable name is not 
local to the function, the global 
value was changed. 
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Now, you are probably wondering why you should make variable names 
local to a function. Following are some reasons for using local variables: 

• Let's assume you have defined a function named COUNT that uses a 
variable named X. At some later time, you assign the result of an 
important calculation to a global variable named X. Now if you 
execute COUNT, the following conditions can occur: 

1. If X was made local to COUNT, the global value of X is not 
changed. 

2. If X was not local to COUNT, the global value of X (the 
results of your important calculation) is changed. 

• You can conserve space in your active workspace by not storing the 
values for variables you do not use outside a function. 


BRANCHING, LABELS, AND LOOPING 
Branching and Labels 

Statements in a user-defined function are normally executed in the order 
indicated by the statement numbers, and execution terminates at the end 
of the last statement in the sequence. However, this normal orde. of 
execution can be modified by branching (transferring to another point 
in the sequence). Branching is indicated by a right arrow -»• followed by 
a label that specifies the statement to be branched to. 

For example, the expression +START means branch to a statement 
labeled START. When a label is assigned to a statement, the label is 
followed by a colon and must precede the statement. The colon separates 
the label from the statement: 


i:2:] START : N«-N + l 


i:Ti:i •» START 


In the previous illustration, the label START is assigned to the second 
statement in the function. In this case, START has a value of 2; however, 
if the function is edited and the statement is no longer the second 
statement in the function, START will automatically be given the value 
of the new statement number. Now as the function executes, when 
statement 5 is executed, a branch is taken to the statement labeled 
START. If the same label appears more than once in a function, any 
branches taken to that label always branch to the first statement with 
the label. 




Labels are local to a function; that is, they can be used only within that 
function. Following are some rules that apply exclusively to the use of 
labels: 

• They must not appear in the function header. 

• You cannot assign values to them. 

There are two types of branch statements you can use—unconditional 
branches and conditional branches: 

• Unconditional branches are branches that are taken each time the 
branch statement is executed. You have already seen an example of 
an unconditional branch, [5] +START, where the branch to the 
statement labeled START is taken each time statement 5 is executed. 
Another common use of an unconditional branch is ->0, which causes 
the execution of the function to be terminated. 

• Conditional branches are branches that are taken depending upon 
some condition that exists at the time the branch statement is executed. 
Conditional branches are used, for example, to branch to a statement 

if a condition is true and to otherwise continue with the next 
statement (fall through). This type of branch can be entered like 
this: 

-*(CONDITION)/N 

The branch to statement N is taken if the condition is true; otherwise 
the next statement is executed. For example, APL executes the 
branch statement->(I >N)/START as follows: 

1. First, the condition (I>N) is evaluated; the result is 1 if the 
condition is true and 0 if the condition is false. 

2. The result of step 1 is then used as the left argument for the 
compress (/) function: 

a. If the result of step 1 was 1, START is selected from the right 
argument and a branch to the statement labeled START is 
taken. 

b. If the result of step 1 was 0, nothing is selected from the right 
argument (an empty vector is the result). A branch to an 
empty vector means execute the next statement in sequence 
(fall through). 
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In the following example, you will use two variations of a function to 
determine the sum of each number from 1 to the value of the argument 
(each function will use a different method of branching). 


EXAMPLES: 


VS*-SUM2 N 

i: :i. :i s*-o 

r: 2 ::i :i>:i. 

i:3:i CHECK : -KI>N)/0 
1: 4 :i S * S+.1. 

1:5:1 i«-i+i 

1:: 6 :i C H E C K V -- 

SUM2 5 


VS*-SUM3 N 
i:i:i S* 0 
1:2:1 1*0 

1:3:1 check : s*-s+:i: 

1:4 :i 1 *• i+:i 

1: 5 :i ( .1: < N > /CHECK -Branch to CHECK or fall through. 

SUM3 5 


Branch to 0 (terminate the function) or fall 
through to the next statement. 

Unconditional branch to CHECK. 
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Looping 

A repeated segment of a function is called a loop; when you have a loop 
in your program, you must provide a way to get out of the loop. 


EXAMPLE: 


V LOOP-- 

till IX) 

H2:i LABEL : 1 THIS PROGRAM CONTAINS 
tZl I <-1 + 1 
em :i xabelv 

LOOP 


THIS 

PROGRAM 

CONTAINS 

A 

LOOP 

THIS 

PROGRAM 

CONTAINS 

A 

LOOP 

THIS 

PROGRAM 

CONTAINS 

A 

LOOP 

THIS 

PROGRAM 

CONTAINS 

A 

LOOP 

THIS 

PROGRAM 

CONTAINS 

A 

LOOP 

THIS 

PROGRAM 

CONTAINS 

A 

LOOP 

THIS 

PROGRAM 

CONTAINS 

A 

LOOP 


LOOPC33 


This function executes a 
continuous loop. 

A LOOP 1 


Note: To stop execution 
of LOOP, press the ATTN 
key. 

The name of the function 
and the statement number 
where execution stopped is 
displayed. 


VLOO P i: M :i < I /■ 3 ) / LABELS-- Provide a way to get out of 

vl 00 p 1:1:1 :i the loop. 

V L 0 0 P 


1:1 :.i ix) 


~ Display the function. 

1:2:1 LABEL:"]" 

HIS PROGRAM 

CONTAINS A LOOP' 

1:33 If-IX 



i:m:i -><is* 3 >/ 

VI 

LABEL 


V 

LOOP 



THIS PROGRAM 

CONTAINS A 1 

LOOP) 

THIS PROGRAM 

CONTAINS A 

LOOP V* -The loop is executed three 

THIS PROGRAM 

CONTAINS A 

LOOP times. 
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HOW TO ENTER DATA DURING FUNCTION EXECUTION 



So far you have defined functions for which you have supplied the data 
for the function as arguments. This method of supplying data limits you 
to two input arguments, and you must be familiar with the function so 
that you can enter the required arguments in the correct order. However, 
you can also define user-defined functions that display requests for input 
data as the function executes. This type of function allows you to input 
any amount of data; and you can also define your function so that it 
specifies what type of data is to be entered. To do this, you use the 
□ (quad) or 0 (quad quote) symbols in your function to request input 
from the keyboard. When a □ is encountered in a function, execution 
stops and □: is displayed to indicate that the system is waiting for 
numeric or character input (character data must be enclosed in single 
quotes) from the keyboard. When a 0 is encountered in a function, 
execution stops, the cursor appears, and the system waits for input from 
the keyboard; but in this case, everything on the input line from position 
1 to the cursor or the last character entered (whichever is the farthest on 
the input line) is treated as character input, even though you do not use 
enclosing single quotes when you enter the data. 


EXAMPLE: 


Enter the following user-defined function to determine the final score of a 
baseball game: 


VBABEBALL 



The input from the 
keyboard will replace 
the □ or 0 and be 
assigned to the 
variables. 


The score by inning was: 


REDS -010203250 
BLUES -000231300 











EXAMPLE (continued) 



When you are using interactive functions, there may be times when you 
need to escape from a request for input. Normally, pressing the ATTN 
key causes the execution of your function to stop; however, pressing the 
ATTN key during a request for input does not stop the function (the 
function continues to wait for input to be entered). Therefore, APL 
provides a way to escape from input requests. To escape from a □ input 
request, you enter which causes execution of your function to be 
terminated. 

To escape from a □ input request, you must enter the ID (OUT) character. 
You enter this character by holding the CMD key and pressing the | j 

key once, and then pressing the EXECUTE key. This will cause the 
execution of your function to stop. What you can do next when your 
function stops is discussed next, in Chapter 8. 
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EXAMPLE: 


BASEBALL -- 

ENTER THE NAME OF THE VISITING TEAM 
REDS 

ENTER THEIR SCORE BY INNING 


*4 


BASEBALL- 

ENTER THE NAME OF THE VISITING TEAM 


ENTER THEIR SCORE BY INNING 


Let's use the BASEBALL 
function to show how to 
escape from input requests. 


Entering -»■ in response to 
a □ input request causes the 
execution of the function 
to be terminated. 

Try escaping from a Q by 
entering -k Your entry was 
treated as a character, and 
used as the visiting team's 
name. 


l l -i | | | -j |-»-Enter some numbers so that 

ENTER THE NAME OF THE HOME TEAM the next □ input request 

will be displayed. 

BASEBALL! A.1 HOMEX’I --Entering the ID character 

A (holding CMD and pressing 

the □ key once) causes 



the execution of the function 
to stop. 



Chapter 8. What You Can Do When Your Function Stops 


The execution of your user-defined function will stop when: 

• The ATTN key is pressed. 

• The stop feature is used. 

• An error is encountered in the function. 

• A ©character (the CMD key held and the □ key pressed once) 
is entered for a □ input request. 

A function that has stopped executing for one of the preceding reasons 
is called a suspended function. A suspended function is still active, since 
its execution can be resumed later. 

Now let's look at what you can do when your function stops executing. 


WHEN THE ATTENTION KEY IS PRESSED 

When you press the ATTN key during the execution of your user- 
defined function, the function stops executing at the end of the state¬ 
ment currently being executed. In this case, the 5110 displays the 
function name and the next statement number to be executed. 

After your function stops executing, you can do one of the following: 

• Edit the function. 

• Execute the function again. 

• Execute another user-defined function. 

• Execute system commands except for )SAVE, )COPY, and )PCOPY. 
The system commands are described in the IBM 5110 APL Reference 
Manual, SA21-9303. 

• Terminate the function by entering 
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Generally, after you have stopped your function by pressing the ATTN 
key, you will want to resume execution of the function at a later ti.me. 
To do this, you enter -*□ LC. □ LC is a system variable that contains the 
statement number of the next statement to be executed (see the IBM 
5110 APL Reference Manual, SA21-9303 for a complete description of 
the □ LC system variable). 

Note: If you want to resume execution at a statement other than the 
one immediately following the last statement executed, enter (where 
n is the statement number at which you want to resume execution). 


EXAMPLES: 



V S F U N C T 1 0 N; C 0 U N 7' --- 

Define a function 

1:1 :i 

COUNT*0 

with a continuous 

€21 

LOOP:•THIS FUNCTION CONTAINS A LOOP* 

loop. 

1 : 3:1 

COUNT*COUNT+1 


c 1 + :i 

••►LOOP 


1 : 3:1 

•THIS FUNCTION LOOPED* 


€61 

COUNT 


1 : 7:1 

‘ TIMES ‘ V 



SFUNCTION 


THIS 

FUNCTION 

CONTAINS 

A 

LOOP 

Press the ATTN 

THIS 

FUNCTION 

CONTAINS 

A 

LOOP 

key to stop execution 

THIS 

FUNCTION 

CONTAINS 

A 

LOOP 

of the function. 

THIS 

FUNCTION 

CONTAINS 

A 

LOOP 


THIS 

FUNCTION 

CONTAINS 

A 

LOOP 


THIS 

FUNCTION 

CONTAINS 

A 

LOOP 


THIS 

FUNCTION 

CONTAINS 

A 

LOOP 



SFUNCTI ON i:3:i 


v s f u n 0 t :i: 0 n 1: •+ ::i •* < c 0 u n t < 3 > / 1... 0 0 p v 



The function is 
suspended at the 
statement number 
shown in the [ ] on 
your display screen. 

Edit the function so 
that it does not 
contain a continuous 
loop. 

Resume execution 
of the function. 




EXAMPLES—continued 


THIS FUNCTION LOOPED 

7 -- 

TIMES 


SFUNCTION 


THIS 

FUNCTION 

CONTAINS 

A 

LOOP 

THIS 

FUNCTION 

CONTAINS 

A 

LOOP 

THIS 

FUNCTION 

CONTAINS 

A 

LOOP 

THIS 

-x 

FUNCTION 

LOOPED 



TIMES 





The value shown 
here on your display 
screen is the number 
of times the function 
looped. 

Now execute the 
function again. 


Note: When the shift key is held down and the ATTN key is pressed 
during the execution of an APL statement or expression (either within 
or outside a user-defined function), the execution of the statement or 
expression stops immediately. The message INTERRUPT, the statement 
being processed, and the caret (a ) that indicates where the statement 
was interrupted is displayed. You can use this method to interrupt 
statements that take a long time to execute. However, any results 
generated by the statement or expression before it was interrupted 
might not exist after the interrupt. 


WHEN THE STOP FEATURE IS USED 

You are already familiar with the stop feature, which was discussed in 
Chapter 7. When using the stop feature (as when using the ATTN key), 
you can do the following: 

• Edit the function. 

• Execute the function again. 

• Execute another user-defined function. 

• Execute system commands except for )SAVE, )COPY, and )PCOPY. 

• Resume function execution by entering □ LC. 

• Terminate the function by entering ->. 
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WHEN AN ERROR IS ENCOUNTERED IN THE FUNCTION 


The reason the execution of your function stopped in this case, unlike 
the reasons in the other two cases, cannot be controlled by you. That 
is, the 5110 automatically stops the execution of your function and 
displays an error message when an error occurs in the function. The 
error messages and a suggested user's response for each error are 
described in the IBM 5110 APL Reference Manual, SA21-9303. 

Errors in a user-defined function are sometimes difficult to find and 
correct. The error message displayed indicates where the execution of 
the statement stopped, and why; but the reason the failure occurred at 
that point might have been because a mistake (either a keying error or 
an error in the solution to the problem) was made earlier in the statement 
or because a mistake was made in an even earlier statement in the 
function. Following are some hints to help you find errors in a statement 
or expression that is failing or giving the wrong results. 

• Check the expression (statement) you entered for any keying errors. 

• Analyze the execution of the expression from right to left. Remember, 
APL executes an expression from right to left with the expressions in 
parentheses resolved (right to left) as they are encountered. 

• Use the shape p function to make sure the shapes of the arguments 
are what you expect. For example, suppose you have a function 
named CAT that catenates two vectors together to form one vector; 
however, one of the arguments you supplied was a matrix (this 
causes a LENGTH ERROR). 

• Enter the names to check the values of the arguments to make sure 
they are what you expect (local variables in a suspended function 
can be displayed, since the function is still active). 

• Break the expression down and execute it in smaller segments. 

The up H and down Q arrows (scroll up and scroll down 

keys) make it easy for you to break the expression down; that is, 
you can execute the expression as APL does (from right to left with 
expressions in parentheses resolved as they are encountered). To do 
this, you enter the first operation performed by APL, for which the 
result will be displayed. Then press the down arrow three times and 
the up arrow once to remove the previous result from the display 
screen (so that it is not on the input line when the EXECUTE key 
is pressed again) and to place the instruction you just entered in a 
position for you to add more operations. Now you can add the next 
operation to the instruction, and the next, until the error in the 
instruction is found. 





• Display intermediate results from the expression using the □ . This 
does not change the final result. For example: 


3 x 4. f 5 2 

21 



1 

21 


It is important that you maintain a history (either a printout on the 
printer or a handwritten copy) of what you did when you were trying 
to find the cause of an error. Then if you cannot find the error and you 
think the problem is caused by the 5110, this history will help your 
service representative determine where the problem is. 

When a function has stopped because an error occurred, as when pressing 
the ATTN key or using the stop feature, you can do the following: 

• Edit the function. 

• Execute the function again. 

• Execute another user-defined function. 

• Execute system commands except for )SAVE, )COPY, and )PCOPY. 

• Resume execution of the function by entering -*□ LC. 

• Terminate the function by entering . 


WHEN A ©CHARACTER IS ENTERED FOR A □ INPUT REQUEST 

In Chapter 7, you used the © character to escape from a □ input request 
and to stop function execution. In that case, the 5110 displayed the 
message INTERRUPT, the function name, and the statement that 
requested the input. After your function stops, you can do the same 
operations that you did when the function stopped for any other reason. 
However, in most cases, you will want to terminate the function by 
entering ^. 


FINDING OUT WHAT FUNCTIONS ARE SUSPENDED 

The state indicator contains the function name and the number of the 
statement to be executed next for each suspended function. To display 
the state indicator, you enter )SI or )SI N L. See the IBM 5110 APL 
Reference Manual , SA21-9303, for more information on the state 
indicator. 
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USING THE HOLD KEY TO STOP PROCESSING 


HOLO! 


We have already discussed the ways a user-defined function can be 
suspended. You can also stop the execution of a function by pressing the 
HOLD key once. In fact, this stops the entire system from processing 
any data. To resume processing after pressing the HOLD key, you must 
press the HOLD key again. The HOLD key is useful when the information 
on the display screen is changing rapidly; that is, you can stop processing, 
read the displayed information, and then resume processing. 


EXAMPLES: 


VHOLDF -*-Define a function. 

i:i::i i f o 

i:2:i 'PRESS THE HOLD KEY TO STOP PROCESSING' 
1 : 3:1 LOOP : HH-W 1. 
i:4 :i H 

C53 / LOOPS? 


HOLDF 

PRESS THE HOLD KEY TO STOP PROCESSING 


1 

'•> 

A- 

3 


HOLD 


The value displayed here on your 
display screen indicates how many 
times the function looped before 
processing stopped. 

Notice that the characters HOLD 
are displayed in the bottom left 
corner of the display screen when 
the HOLD key is pressed once. 


Now press the HOLD key again to resume processing. 






Chapter 9. Using Tape or Diskette Storage (Your Library) 


So far you have used only the 5110 active workspace. The active work¬ 
space is the part of the 5110's internal storage where the calculations 
are performed; it is also the place where the variables and user-defined 
functions are stored. When you set the 5110 POWER ON/OFF switch 
to OFF or press RESTART, the data in the active workspace is lost. 
However, before turning the power off or pressing RESTART, you can 
save the data in your active workspace by writing the contents of the 
active workspace on a tape cartridge or diskette. This media (tape or 
diskette) is like a library; that is, you can write the contents of your 
active workspace on the media (like placing a book on the library shelf) 
and, at a later time, put the information stored on the media back into 
the active workspace (like taking the book off the library shelf to use 
it again). 

The library consists of one or more files (each file is like a book), and 
just as each book in the library has a name, each file that contains 
information on the media also can have a name (file identification). 

The IBM 5110 system commands are your means of controlling the 
active workspace and storage media (library). Look at the labels above 
the alphameric keyboard; you can enter these system command key¬ 
words by simply pressing the CMD key with the appropriate key below 
the label. The system command keywords can also be entered character 
by character. Notice that each system command begins with a ) symbol. 
There are some system commands that do not appear on the labels 
above the keyboard. All of the 5110 system commands are discussed 
in detail in the IBM 5110 APL Reference Manual, SA21-9303. 

In the following example, you will see how some of the system com¬ 
mands work. First, a tape cartridge or diskette must be inserted into 
your system. 

If you are using a tape cartridge: 

1. Be sure the tape contains no data required for any further use. 

2. Make sure that the SAFE switch (Figure 3) does not point to SAFE. 

3. Insert the tape cartridge (Figure 4). 
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If you are using a diskette: 

1. Be sure the diskette is initialized and contains no data required for 
any further use. 

Note: The IBM-supplied diskettes are initialized before they are 
sent to a customer. 

2. Remove the diskette from the protective envelope (Figure 5). 

3. Insert the diskette into diskette drive 1 (Figure 6). 





Figure 5. Removing the Diskette from the Protective Envelope 



as the diskette is 
inserted. 

Figure 6. Inserting a Diskette in Diskette Drive 1 
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EXAMPLES: 


Press RESTART on your 5110; all the data that was in the active workspace is now 
lost. 


CLEAR WS 


This message will be displayed 
when the 5110 is again ready 
for you to enter data. 


Enter the following function and variable so that you can store them on the media 
for later use: 


VEXAMPLE;R;NAME 

•THIS FUNCTION COUNTS THE CHARACTERS IN YOUR NAME' 

i::2:i 'now enter your name 1 
m name<-d 

CM-3 'THERE ARE' 

c:5 :j pi name 

C6:1 'CHARACTERS IN YOUR NAME'? 

VARIABLES'LET''S SAVE THIS DATA' 


Now try the function EXAMPLE to see if it works. 


> FNS 
EXAMPLE 


) VARS 
VARIABLE 


The )FNS system command 
displays user-defined function 
names in the active workspace. 

The )VARS system command 
displays the global variable 
names in the active workspace. 


Before the storage media can be used, the files you want to use must be formatted. 
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) MARK 
HARKED 0003 


16 3 
0 016 


The )MARK command formats 
files on the media. This com¬ 
mand specifies: 

— — Size of the files to be 

formatted 

— _ Number of files to format 
_— Starting file number 

— — Device. If you are using 

tape storage, specify 1 
(tape drive 1). However, 
if you are using diskette 
storage, specify 11 (disk¬ 
ette drive 1) instead of 
tape drivel. Seethe 
IBM 5110 APL Reference 
Manual for the default 
device used by the system 
if the device is not 
specified. 


APL will respond with MARKED, 
number of the last file marked, 
and the size of the files. If the 
file you want to use has been 
marked before, you will get a 
message ALREADY MARKED. 

In this case, enter GO and press 
the EXECUTE key to reformat 
the taoe files. 


Note: If you 



enter the )MARK command by holding down the CMD key and pressing 
key, the command is displayed as follows: 


) MARK 


KB NF 



-These characters identify the 
parameters required for the 
command and must be replaced 
with the required information. 

KB stands for the size of the files 
to be formatted in K(1024) byte 
blocks; NF stands for the number 
of files to be marked; SF stands 
for the starting file number; DEV 
stands for the device number the 
media is on. 


After the )MARK command is executed, the files are formatted in blocks of 1024 bytes. 
For example, the size of the files just formatted is sixteen 1024-byte blocks (or 16,384 
total bytes). See the IBM 5110 APL User's Guide, SA21-9302, for information on 
what size to format files. 



Now let's write the contents of the active workspace on the media. In the following 
examples, if you are using diskette storage, specify device 11 (diskette drive 1) instead 
of device 1 (tape drive 1). For example, device/file number 1001 should be 11001 for 
diskette. 


> CONTINUE 
CONTINUED 1001 


1 0 0 1 INF0 -This becomes the name of the 

J.NI 0 file on tape. 

^'-This specifies the device/file 
number (device 1, file 001) 
to which the contents of the 
active workspace are written. 


You do not have to turn the 
power off or press RESTART 
to clear all of the existing data 
out of the active workspace; 
you can use this sytem 
command. 


The data in a stored workspace can be placed back into the active workspace. 


LOAD 


> LOAD 
D 1001 


1 0 01 
INFO 



The stored workspace name 
(workspace ID). 

The device/file number from 
which the stored workspace 
will be loaded. 


Using Tape or Diskette Storage (Your Library) 113 



) FNS 
EXAMPLE 

) VARS 



VARIABLE 


Now the data that was stored 
on the media is in the active 
workspace once again. 


The remaining system commands are described in the IBM 5110 APL Reference 
Manual. Try using these system commands to see how they work. 


So far, you have learned how to write the entire contents of the active 
workspace on the media. However, you can also write one variable at a 
time to a file on the media. This data can then be read from the media 
at a later time in the same order as it was written to the media. For 
more information on how to do this, see the IBM 5110 APL User's Guide. 


WHAT ARE SYSTEM VARIABLES? 

System variables are variables within the active workspace that control 
the system. All system variables begin with the □ symbol and are set to 
an initial value by the 5110 in a clear workspace. See the IBM 5110 
APL Reference Manual for a complete description of each system 
variable. In the following example, you will see how the value of some 
system variables can be changed and how this affects certain APL 
functions. 


EXAMPLES: 


The index origin QIO system variable determines the index origin. The value of 
the □ 10 system variable can be either 0 or 1, which means that the first element of 
a vector or array is indexed with a 0 or 1 depending upon what the D10 system 
variable is set to. The APL functions i ? 4 t and indexing ([]) are affected by the 
[] 10 system variable. 

You can display the value of a 
system variable the same way you 
display the value of any variable. 

The DIO system variable is 
initially set to 1 by the system. 

Results when the □ 10 system 
variable is set to 1. 


DIO 




3?3 


These numbers can be in any 
order. 


3 1 

0 1 
1 2 


n 


0 



You can change the value of 
some system variables. 

Notice how the results of these 
APL functions change when the 
□ 10 system variable is changed. 

These numbers can be in any 
order. Notice that the values 
start from 0. 


The printing precision DPP system variable determines the number of significant 
digits displayed. 


GPP 


The QPP system variable is 
initially set to 5 by the system. 



are displayed. 


The comparison tolerance GCT system variable determines how close two numbers 
must be when you are using the relational, floor, or ceiling functions. 


:LE 

0 

1 


13 


GCT 


□CT«-1E “5 
. 5555556™ 



The DCT system variable is 
initially set to 1E - 13 by the 
system. 

These two values are not 
considered equal. 

Now these two values are 
considered equal. 


)CLEAR 
CLEAR WS -- 


The workspace is clear and the 
system variables are once again 
set to their original values. 
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REMEMBER, APL IS A GOOD LANGUAGE 
TO EXPERIMENT WITH. THE MORE YOU 
EXPERIMENT, THE MORE YOU LEARN. 
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Appendix A. Overstruck Characters 


Name 

Character 

Using 

These 

Keys 

Using the CMD 
Key and Pressing 
This Key 

Comment 

A 

© s 

m 

Compress 

/ (See note) 

lillil limJ 

CD 

Execute 


BB i 

CD 

Expand 

\ (See note) 

fifl 13 

0 

Factorial, Combination 

T 

Q 8 I 

□ 

Format 


Si Si ( 

3 

Grade Down 


m n: i 

M » , | 

0 

Grade Up 

* 

--- >- - 

A 1 

H 1 : n 

E 

Logarithm 

® 

LD :l 

0 

Matrix Division 

S 

CD LiJ 

□ 

Nand 

A 

S3 S! 


Nor 

V 

CD Ctij 


Protected Function 

V 

S3 CD 



118 



Name 

Character 

Using 

These 

Keys 

Using the CMD 
Key and Pressing 
This Key 

Quad Quote 

□ 

' D ' 

a □ 

Rotate, Reverse 

4> 

'- 1 

ill 

CD CD 

Rotate, Reverse 

© (See note) 

<———i 

o 

□ D 

Transpose 

$ 


a cd 


Note : These are variations of the symbols for these functions; they 
are used when the function is to act on the first coordinate of an array. 
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Index 


)CLEAR command 112,115 
)CONTINUE command 112 
)FNS command 111 
) LOAD command 112 
)MARK command 112 
)VARS command 111 
[I] 48,49,51 

[□I 81 

[□n] 86 

[n[]] 86 

[An] 85 

□ 98 

□: 98 

□CT 115 
[JIO 114 
□PP 39, 115 

□ 98 


-»t]LC 79, 102 

©character 

99, 105 

Vsymbol 

74 

f function 

32, 44 

L function 

32, 45 

^ function 

33 

y function 

33 

? function 

34,46 

1 function 

25, 35 

p function 

35 

< function 

37 

< function 

37 

> function 

37 

> function 

37 

= function 

37 

=£ function 

37 

A function 

40,41 

v function 

40,42 

/ function 

47, 48 

, function 

50 

® function 

54 


active workspace 107 
adding statements 82 
addition 17 
alpha keys 2 


alphameric keys 2 
ALREADY MARKED 112 
alternating sum 59 
and function a 40, 41 
and reduction 51 
APL language 1 

APL system command keywords 4 
arguments 17,31,90 
arithmetic function keys 4 
arithmetic operations 17 
assign a value 20 
assignment arrow 20 
attention key (see ATTN key) 

ATTN key 4,14,77,101 
average 56 


backspace key 4, 10, 11, 12 
BASIC/APL switch 4 
black background 9 
black characters 9 
blank character 29 
branching 94 
brightness control 9 
built-in functions 1, 17, 62 


calculator arrangement 4 
catenate function , 50 

ceiling function f 32 
character data 29 
CLEAR WS 4 
closing V 75 
CMD key 4,11 
column 25 
command keywords 4 
comparison tolerance OCT 115 
compress function / 47 

conditional branch 95 
conform 51 
consecutive numbers 34 
control panel 1 
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coordinate, acted on 48, 49 
correct a keying error 13 
correcting keying errors 10 
cursor 7 


deal function ? 46 

default device 112 
del symbol 74 
delete a character 11 
deleting statements 85 
diskette 107,108,110 
diskette drive 110 
display appearance 9 
display global variable names 111 
display registers/normal switch 4 
display screen 1,7 
displayed information 7,8 
displaying a statement 86, 87 
displaying data 7 

displaying from a specific statement 86 
displaying the entire function 81 
displays user-defined function names 111 
division 17 
down arrow 9, 14, 75 


editing a function 80 
editing the function header 87 
empty vector 35, 53 
entering data 7 

entering data during function execution 98 

equal to function = 37 

error in the function 104 

error message 21, 77, 104 

escape from input requests 99 

EXECUTE key 4, 8, 14 

execution mode 74 

expand a vector or matrix 48 

expand function \ 48 

explicit result 91 


features 1 
files 107 
flashing line 7 
floor function L 32 
format files 112 


forward space key 4, 10, 11, 12 
function body 75 
function definition 74 
function definition mode 74 
function editing 80 
function execution stops 101 
function header 74, 87, 91,92 
functions 1 


global names 92 

global variable names 111 

grade down function ^ 33 

grade up function 4 33 

greater than function > 37 

greater than or equal to function > 37 


history 7 
HOLD key 4, 106 
HYP function 74 


index generator function \ 34 

index numbers 27 

index of a value 46 

index of function i 46 

index origin DIO 114 

index value [I] 48,49,51 

indexed 33 

indexing 27 

indicator lights 1 

input 7 

input line 9 

insert a character 12 

insert blanks or zeros 48 

insert tape cartridge 107 

inserting statements 84 

instructions 74 

interactive functions 99 

internal checks 4 

internal precision 39 



join two items 47 


keyboard 1,6 
keying errors 10 
keys 1 

keywords 4, 107 


labels 94 

larger of two numbers 44 

less than function < 37 

less than or equal to function < 37 

library 107 

local names 92 

local variables 94 

logarithm function ® 54 

logarithm of a number 54 

logical functions 40 

looping 77,97 

lost lines 9 

lowercase alphabetic characters 15 
lowercase character mode 15 
L32 64 R32 switch 4, 9 


matrices 22 
matrix 25,29 
maximum function f 44 
maximum reduction 60 
minimum function L 45 
minimum reduction 60 
minus 18 

mirium reduction 59 
modifying a statement 86 
move display lines 9 
multiplication 17 


negative numbers 18 
negative sign 18 
not equal to function * 37 

numeric keys 4 


operating keys 4 
or function v 40, 42 
or reduction 6 
order of execution 21,22 
overstruck character 31 


parentheses 22 

place a stored workspace into the active 
workspace 112 
plus reduction 56 
portable computer 1 
power function * 12 

power up sequence 4 
printing precision []PP 115 


quad input 98 
quad quote input 98 


random number 34, 46 
reduction 56 
relational functions 37 
reopen function definition 80 
replace a character 10 
replacing statements 83 
request for input data 98 
reshape function 25 
restart sequence 4 
restart switch 4 
result variable 75, 80, 91 
reverse display switch 29 
roll function ? 34 

root of a number 20 
rounding off numbers 32 
row 25 


SAFE switch 107 
scalar 29 
scroll down 75, 86 
scroll down key 4, 9 
scroll up 75, 86 
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scroll up key 4, 9 
selecting certain elements 47 
semicolon 28 
set up procedure 1 
shape 35 

shape function p 35 
shift key 2 

single quote characters 29 

smaller of two numbers 45 

sorting a vector 33 

special character combinations 4 

standard APL character mode 2 

standard typewriter 2 

state indicator 105 

statement number 75 

statements 74 

stop control feature 103 

stop execution 78 

stop feature 78 

stop processing 106 

storage media 107 

storing data 20 

strings of numbers 22 

subtraction 17 

suspended functions 78, 101 

switches 1,4 

system command keywords 4, 107 
system commands 107 
system variables 114 


unconditional branch 95 
up arrow 9, 14, 75 
user-defined functions 17, 74 


variable name 20 
variables 20 
vectors 22,29 


white background 9 
white characters 9 

write the active workspace to tape 112 


5110 Model 1 1 

5110 Model 2 1 


tables 22 
tape cartridge 107 
testing your function 76 
trace feature 78 
turn off stop 79 
turn off trace 79 
typewriter 2 
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